(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    201766,       4511]
NotebookOptionsPosition[    201144,       4490]
NotebookOutlinePosition[    201490,       4505]
CellTagsIndexPosition[    201447,       4502]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
  "path", "=", 
   "\"\<C:\\\\Users\\\\Prohor\\\\Documents\\\\\:041a\:0430\:0444\:0435\:0434\
\:0440\:0430\\\\test 3\\\\data\\\\output\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas1inup", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 1\\\\cons_up_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"num", "=", 
  RowBox[{"Length", "[", "impgas1inup", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1inup", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1inup", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas1outup", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 1\\\\cons_up_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1outup", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1outup", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas2inup", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 2\\\\cons_up_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2inup", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas2inup", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas2outup", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 2\\\\cons_up_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2outup", " ", "=", " ", 
   RowBox[{"Cases", "[", 
    RowBox[{"impgas2outup", ",", " ", 
     RowBox[{
      RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5701150047312584`*^9, 3.5701151300024233`*^9}, {
   3.5701151617202377`*^9, 3.5701151788262167`*^9}, {3.570115245276017*^9, 
   3.5701152671662693`*^9}, {3.570115436810972*^9, 3.5701154381240473`*^9}, {
   3.5701155021587095`*^9, 3.57011561020389*^9}, {3.5701156480970573`*^9, 
   3.570115769214985*^9}, {3.5701159343794317`*^9, 3.570115945387061*^9}, {
   3.570116056511417*^9, 3.5701160922054586`*^9}, {3.570116184951763*^9, 
   3.5701161924731936`*^9}, {3.5701168159328537`*^9, 3.570116959434061*^9}, {
   3.5701169933590016`*^9, 3.570117012249082*^9}, {3.5701172449403915`*^9, 
   3.570117254957964*^9}, {3.570117750860328*^9, 3.5701177515953703`*^9}, 
   3.57011901111141*^9, {3.571812443674467*^9, 3.571812443930482*^9}, {
   3.5734579638343983`*^9, 3.5734580301571913`*^9}, {3.573458063312088*^9, 
   3.573458069827461*^9}, {3.5734581228154917`*^9, 3.57345812383955*^9}, {
   3.5734581591265683`*^9, 3.573458189205289*^9}, 3.5735541393255105`*^9, 
   3.573554265529729*^9, 3.573903441339959*^9, {3.57529358601057*^9, 
   3.575293586120715*^9}, {3.5777157747708697`*^9, 3.577715774873963*^9}, 
   3.579155312859424*^9, 3.579155417073916*^9}],

Cell[BoxData["39"], "Output",
 CellChangeTimes->{
  3.575433121066917*^9, 3.5754358793273954`*^9, 3.5754360534626155`*^9, 
   3.575436158306669*^9, 3.5754364669685774`*^9, {3.575436584765252*^9, 
   3.5754366002521486`*^9}, 3.5754367736677227`*^9, 3.575436840890025*^9, 
   3.5754369212831507`*^9, 3.5754369681912327`*^9, 3.5754370633375883`*^9, 
   3.57543719126235*^9, 3.5754372369163103`*^9, 3.575437267732956*^9, 
   3.5754380242015924`*^9, 3.575438069333082*^9, 3.5754381133475666`*^9, {
   3.5754381538819337`*^9, 3.5754381767544527`*^9}, 3.5777157888165083`*^9, 
   3.579155318318321*^9, 3.579155420617098*^9, 3.579157163353532*^9, 
   3.57915719936586*^9, 3.5808849788665943`*^9, 3.580885042597769*^9, 
   3.580885086121815*^9, 3.5808852149303675`*^9, 3.580885351937282*^9, 
   3.580885387584259*^9, 3.5808854541069403`*^9, 3.5808854853569756`*^9, 
   3.5808859075046887`*^9, 3.5808859406003776`*^9, 3.5808860069949446`*^9, 
   3.58088607794359*^9, 3.580886229835862*^9, 3.5808863023649244`*^9, 
   3.580886346451473*^9, 3.580886450389721*^9, 3.5808864926676455`*^9, 
   3.580886596447753*^9, {3.5808889506957808`*^9, 3.580888994178793*^9}, {
   3.580889187694396*^9, 3.5808892263310604`*^9}, 3.5808893838003283`*^9, 
   3.5808894235599976`*^9, 3.5808895384921017`*^9, 3.5808896824842787`*^9, 
   3.5808899768563647`*^9, {3.580890246308097*^9, 3.5808902706749573`*^9}, 
   3.580890346095615*^9, 3.5808903777640276`*^9, 3.5808904294964385`*^9, 
   3.5808905029863634`*^9, 3.580890617465068*^9, 3.580890757136366*^9, {
   3.5808908103721275`*^9, 3.580890831674235*^9}, 3.580891014182966*^9, 
   3.580891092474202*^9, 3.5808911641925416`*^9, 3.5808912813026037`*^9, {
   3.5808913677731776`*^9, 3.580891396049545*^9}, 3.5808914423801107`*^9, 
   3.5808915034508963`*^9, 3.5808915379628572`*^9, 3.5808916445815067`*^9, 
   3.5808926401166196`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"impgas1indown", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 1\\\\cons_down_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1indown", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1indown", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas1outdown", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 1\\\\cons_down_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1outdown", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1outdown", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas2indown", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 2\\\\cons_down_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"numgas2indown", "=", 
   RowBox[{"Length", "[", "impgas2indown", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2indown", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas2indown", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"impgas2outdown", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<\\\\gas 2\\\\cons_down_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2outdown", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas2outdown", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "\:043f\:043e\:0448\:0435\:043b", " ", 
    "\:0432\:0435\:0440\:0445\:043d\:0438\:0439", " ", 
    "\:043a\:0430\:043d\:0430\:043b"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"quant", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timestep", " ", "=", " ", "0.002083"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"strartnumber", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:043f\:043e\:0434\:0433\:043e\:0442\:043e\:0432\:0438\:043c", " ", 
     "\:043c\:0430\:0441\:0441\:0438\:0432\:044b"}], ",", " ", 
    RowBox[{
    "\:043f\:043e\:0441\:0442\:0430\:0432\:0438\:0432", " ", 
     "\:0432\:0440\:0435\:043c\:044f"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas1inup"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", 
     RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"massforappr", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massforappr", ",", " ", 
         RowBox[{"inputdata", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
     "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{
       RowBox[{"g", "*", 
        RowBox[{"x", "^", "5"}]}], "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "4"}]}], "+", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "3"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}],
       ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas1inupor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1inup", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas2inup"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"inputdata", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", 
       RowBox[{"d", "+", 
        RowBox[{"c", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
          "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{
       RowBox[{"g", "*", 
        RowBox[{"x", "^", "5"}]}], "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "4"}]}], "+", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "3"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}],
       ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2inupor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2inup", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas1outup"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", 
     RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"massforappr", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massforappr", ",", " ", 
         RowBox[{"inputdata", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
     "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{"d", "+", 
       RowBox[{"c", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
         "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas1outupor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1outup", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas2outup"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"inputdata", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", 
       RowBox[{"d", "+", 
        RowBox[{"c", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
          "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
       "\[IndentingNewLine]", 
       RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{
       RowBox[{"g", "*", 
        RowBox[{"x", "^", "5"}]}], "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "4"}]}], "+", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "3"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}],
       ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2outupor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2outup", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"markersize", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thickness", "=", "0.003"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"axesthickness", "=", "0.003"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upin1or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1inupor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \
\"in\"], \"1\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upin1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1inup", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Blue"}], "}"}]}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upin2or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2inupor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \
\"in\"], \"2\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upin2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2inup", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Red"}], "}"}]}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upout1or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1outupor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \"out\
\"], \"1\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upout1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1outup", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Green"}], "}"}]}],
      ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upout2or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2outupor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \"out\
\"], \"2\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"upout2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2outup", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Brown"}], "}"}]}],
      ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
   "upin1or", ",", "upin1", ",", "upin2or", ",", "upin2", ",", "upout1or", 
    ",", "upout1", ",", "upout2or", ",", "upout2", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"t", ",", "C"}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Thickness", "[", "axesthickness", "]"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "\:043f\:043e\:0448\:0435\:043b", " ", 
    "\:043d\:0438\:0436\:043d\:0438\:0439", " ", 
    "\:043a\:0430\:043d\:0430\:043b"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:043f\:043e\:0434\:0433\:043e\:0442\:043e\:0432\:0438\:043c", " ", 
     "\:043c\:0430\:0441\:0441\:0438\:0432\:044b"}], ",", " ", 
    RowBox[{
    "\:043f\:043e\:0441\:0442\:0430\:0432\:0438\:0432", " ", 
     "\:0432\:0440\:0435\:043c\:044f"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"strartnumber", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas1indown"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"inputdata", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", " ", "=", " ", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", " ", 
       RowBox[{"c", "-", 
        RowBox[{"d", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{"a", " ", "+", " ", 
           RowBox[{"b", " ", "x"}]}], "]"}]}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"a", ",", " ", "b", ",", "c", ",", "d"}], "}"}], ",", " ", 
       "x", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{"d", "+", 
       RowBox[{"c", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
         "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas1indownor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1indown", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas2indown"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", 
     RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"massforappr", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massforappr", ",", " ", 
         RowBox[{"inputdata", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
     "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{"d", "+", 
       RowBox[{"c", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
         "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2indownor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2indown", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"strartnumber", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas1outdown"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"inputdata", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", 
       RowBox[{"d", "+", 
        RowBox[{"c", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
          "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{
       RowBox[{"g", "*", 
        RowBox[{"x", "^", "5"}]}], "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "4"}]}], "+", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "3"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}],
       ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas1outdownor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1outdown", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inputdata", "=", "datagas2outdown"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"inputdata", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"inputdata", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", 
       RowBox[{"d", "+", 
        RowBox[{"c", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
          "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"massforappr", ",", 
      RowBox[{
       RowBox[{"g", "*", 
        RowBox[{"x", "^", "5"}]}], "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "4"}]}], "+", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "3"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}],
       ",", "x", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"inputdata", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "timestep", "*", 
       "quant"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "         ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "timestep", "*", 
            "quant"}], ",", " ", 
           RowBox[{"inputdata", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2outdownor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"num", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "timestep", 
             "*", "quant"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2outdown", " ", "=", " ", "mass"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
     "===", "===", "===", "===", "===", "===", "===", "=="}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downin1or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1indownor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \
\"in\"], \"1\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downin1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1indown", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Blue"}], "}"}]}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downin2or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2indownor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \
\"in\"], \"2\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downin2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2indown", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Red"}], "}"}]}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downout1or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1outdownor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \"out\
\"], \"1\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downout1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas1outdown", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Green"}], "}"}]}],
      ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downout2or", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2outdownor", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{
      "{", "\"\<\!\(\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\
\"C\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], \"out\
\"], \"2\"],
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>\"",
        "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"downout2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"datagas2outdown", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Brown"}], "}"}]}],
      ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
  "downin1or", ",", "downin1", ",", " ", "downin2or", ",", " ", "downin2", 
   ",", "downout1or", ",", "downout1", ",", " ", "downout2or", ",", 
   "downout2", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "C"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Thickness", "[", "axesthickness", "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Larger"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"(*", 
  RowBox[{
   AdjustmentBox[
    SuperscriptBox[
     SubscriptBox[
      AdjustmentBox["C",
       BoxBaselineShift->-0.16666666666666666`,
       BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}],
       "\:0432\:0445"], "1"],
    BoxBaselineShift->-0.16666666666666666`,
    BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
   AdjustmentBox[" ",
    BoxBaselineShift->-0.16666666666666666`,
    BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
   AdjustmentBox["-",
    BoxBaselineShift->-0.16666666666666666`,
    BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
   AdjustmentBox[" ",
    BoxBaselineShift->-0.16666666666666666`,
    BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
   "\"\<\:0420\:0430\:0441\:0445\:043e\:0434 1\:043e\:0433\:043e \:0433\:0430\
\:0437\:0430 \:043d\:0430 \:0432\:0445\:043e\:0434\:0435 \:043a\:0430\:043d\
\:0430\:043b\:0430\!\(\*
AdjustmentBox[\"*\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\")\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\"\\\\n\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>", 
   RowBox[{"(*", 
    RowBox[{
     AdjustmentBox[
      SuperscriptBox[
       SubscriptBox[
        AdjustmentBox["C",
         BoxBaselineShift->-0.16666666666666666`,
         BoxMargins->{{0., 0.}, {
          0.16666666666666666`, -0.16666666666666666`}}], "\:0432\:0445"], 
       "2"],
      BoxBaselineShift->-0.16666666666666666`,
      BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
     AdjustmentBox[" ",
      BoxBaselineShift->-0.16666666666666666`,
      BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
     AdjustmentBox["-",
      BoxBaselineShift->-0.16666666666666666`,
      BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
     AdjustmentBox[" ",
      BoxBaselineShift->-0.16666666666666666`,
      BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}], 
     "\"\<\:0420\:0430\:0441\:0445\:043e\:0434 2\:043e\:0433\:043e \:0433\
\:0430\:0437\:0430 \:043d\:0430 \:0432\:0445\:043e\:0434\:0435 \:043a\:0430\
\:043d\:0430\:043b\:0430\!\(\*
AdjustmentBox[\"*\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\")\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\"\[IndentingNewLine]\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>", 
     RowBox[{"(*", 
      RowBox[{
       AdjustmentBox[
        SuperscriptBox[
         SubscriptBox[
          AdjustmentBox["C",
           BoxBaselineShift->-0.16666666666666666`,
           
           BoxMargins->{{0., 0.}, {
            0.16666666666666666`, -0.16666666666666666`}}], 
          "\:0432\:044b\:0445"], "1"],
        BoxBaselineShift->-0.16666666666666666`,
        BoxMargins->{{0., 0.}, {
         0.16666666666666666`, -0.16666666666666666`}}], 
       AdjustmentBox[" ",
        BoxBaselineShift->-0.16666666666666666`,
        BoxMargins->{{0., 0.}, {
         0.16666666666666666`, -0.16666666666666666`}}], 
       AdjustmentBox["-",
        BoxBaselineShift->-0.16666666666666666`,
        BoxMargins->{{0., 0.}, {
         0.16666666666666666`, -0.16666666666666666`}}], 
       AdjustmentBox[" ",
        BoxBaselineShift->-0.16666666666666666`,
        BoxMargins->{{0., 0.}, {
         0.16666666666666666`, -0.16666666666666666`}}], 
       "\"\<\:0420\:0430\:0441\:0445\:043e\:0434 1\:043e\:0433\:043e \:0433\
\:0430\:0437\:0430 \:043d\:0430 \:0432\:044b\:0445\:043e\:0434\:0435 \:043a\
\:0430\:043d\:0430\:043b\:0430\!\(\*
AdjustmentBox[\"*\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\")\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\"\\\\n\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\>", 
       RowBox[{"(*", 
        RowBox[{
         AdjustmentBox[
          SuperscriptBox[
           SubscriptBox[
            AdjustmentBox["C",
             BoxBaselineShift->-0.16666666666666666`,
             
             BoxMargins->{{0., 0.}, {
              0.16666666666666666`, -0.16666666666666666`}}], 
            "\:0432\:044b\:0445"], "2"],
          BoxBaselineShift->-0.16666666666666666`,
          
          BoxMargins->{{0., 0.}, {
           0.16666666666666666`, -0.16666666666666666`}}], 
         AdjustmentBox[" ",
          BoxBaselineShift->-0.16666666666666666`,
          
          BoxMargins->{{0., 0.}, {
           0.16666666666666666`, -0.16666666666666666`}}], 
         AdjustmentBox["-",
          BoxBaselineShift->-0.16666666666666666`,
          
          BoxMargins->{{0., 0.}, {
           0.16666666666666666`, -0.16666666666666666`}}], 
         AdjustmentBox[" ",
          BoxBaselineShift->-0.16666666666666666`,
          
          BoxMargins->{{0., 0.}, {
           0.16666666666666666`, -0.16666666666666666`}}], 
         "\"\<\:0420\:0430\:0441\:0445\:043e\:0434 1\:043e\:0433\:043e \:0433\
\:0430\:0437\:0430 \:043d\:0430 \:0432\:044b\:0445\:043e\:0434\:0435 \:043a\
\:0430\:043d\:0430\:043b\:0430\!\(\*
AdjustmentBox[\"*\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\!\(\*
AdjustmentBox[\")\",
BoxBaselineShift->-0.16666666666666666`,
BoxMargins->{{0., 0.}, {0.16666666666666666`, -0.16666666666666666`}}]\)\
\[IndentingNewLine]\>"}]}]}]}]}]}]}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5701150047312584`*^9, 3.5701151300024233`*^9}, {
   3.5701151617202377`*^9, 3.5701151788262167`*^9}, {3.570115245276017*^9, 
   3.5701152671662693`*^9}, {3.570115436810972*^9, 3.5701154381240473`*^9}, {
   3.5701155021587095`*^9, 3.57011561020389*^9}, {3.5701156480970573`*^9, 
   3.570115769214985*^9}, {3.5701159343794317`*^9, 3.570115945387061*^9}, {
   3.570116056511417*^9, 3.5701160922054586`*^9}, {3.570117021852631*^9, 
   3.5701172122995243`*^9}, {3.5701172759651656`*^9, 3.570117306092889*^9}, 
   3.5701173467932167`*^9, 3.5701173785850353`*^9, {3.570117439020492*^9, 
   3.5701174451668434`*^9}, {3.570117488150302*^9, 3.570117492889573*^9}, {
   3.5701175403662887`*^9, 3.5701175447165375`*^9}, {3.5701176404440126`*^9, 
   3.570117691995961*^9}, {3.5701177756597466`*^9, 3.5701177831441746`*^9}, {
   3.570117891676382*^9, 3.57011793621993*^9}, {3.5701181861882277`*^9, 
   3.5701182194201283`*^9}, {3.5701182752273207`*^9, 3.570118379900307*^9}, {
   3.57011845006032*^9, 3.5701185376783314`*^9}, {3.570118568829113*^9, 
   3.5701185738704014`*^9}, {3.570118623414235*^9, 3.5701186281375055`*^9}, {
   3.570118660712369*^9, 3.570118923071375*^9}, 3.57011901111141*^9, {
   3.5734582041241417`*^9, 3.5734582414312763`*^9}, {3.573458383430398*^9, 
   3.573458396070121*^9}, {3.5734586669946165`*^9, 3.57345873384044*^9}, {
   3.573458876030573*^9, 3.573458876481599*^9}, {3.573458916408882*^9, 
   3.5734589201960993`*^9}, {3.573458961563465*^9, 3.5734590677435384`*^9}, {
   3.5734924341079855`*^9, 3.5734924781935067`*^9}, {3.5734925671975975`*^9, 
   3.5734925831765113`*^9}, {3.5734926731626587`*^9, 
   3.5734927473168993`*^9}, {3.5734927877392116`*^9, 3.57349283876413*^9}, 
   3.5734928807995343`*^9, {3.5734930054006615`*^9, 3.5734930157622538`*^9}, {
   3.573493061432866*^9, 3.5734930664881554`*^9}, {3.5734931544111843`*^9, 
   3.5734931605845375`*^9}, {3.5734933419979134`*^9, 3.573493394620923*^9}, 
   3.573493453610297*^9, 3.573493969301793*^9, {3.573552537383885*^9, 
   3.573552602010581*^9}, {3.5735526367605686`*^9, 3.5735527270937357`*^9}, {
   3.573553122208335*^9, 3.573553139048298*^9}, {3.573554282922724*^9, 
   3.57355431834875*^9}, {3.5735545585984917`*^9, 3.5735545821668396`*^9}, 
   3.573554733196478*^9, {3.5740105951881733`*^9, 3.5740106262039676`*^9}, {
   3.57441612677686*^9, 3.5744162082662416`*^9}, {3.574416251346031*^9, 
   3.574416397891966*^9}, {3.5744168764879603`*^9, 3.574416942284208*^9}, {
   3.5744170842910833`*^9, 3.5744171195918493`*^9}, {3.5744171497680206`*^9, 
   3.574417158969325*^9}, {3.5744171909631124`*^9, 3.5744172255292444`*^9}, {
   3.574417256622237*^9, 3.5744172567303333`*^9}, {3.5754316480744705`*^9, 
   3.575431755985284*^9}, {3.5754323189263067`*^9, 3.5754325190768614`*^9}, {
   3.575432651380601*^9, 3.575432790592441*^9}, {3.575433335103936*^9, 
   3.57543334940977*^9}, {3.575433452987691*^9, 3.5754337611651564`*^9}, {
   3.575433806924208*^9, 3.5754338351846085`*^9}, {3.57543392001271*^9, 
   3.5754339220535*^9}, {3.5754340234865065`*^9, 3.5754340426006374`*^9}, {
   3.57543426912092*^9, 3.5754342838010244`*^9}, 3.5754343553932643`*^9, {
   3.575434399620926*^9, 3.575434409698967*^9}, {3.5754344620469556`*^9, 
   3.5754344941827583`*^9}, {3.5754345513700666`*^9, 
   3.5754345517864356`*^9}, {3.575434665631567*^9, 3.5754346696872053`*^9}, {
   3.5754348159064302`*^9, 3.5754348166510496`*^9}, {3.5754348541817226`*^9, 
   3.5754348544169493`*^9}, {3.5754349501668787`*^9, 3.57543496796084*^9}, {
   3.5754350654852858`*^9, 3.5754351136955357`*^9}, {3.5754360006172295`*^9, 
   3.575436008344141*^9}, 3.575436116922544*^9, 3.5754364598451843`*^9, {
   3.575436583079789*^9, 3.5754366259762273`*^9}, {3.57543682945877*^9, 
   3.575436838184601*^9}, 3.5754369195286036`*^9, {3.5754369516113553`*^9, 
   3.5754369606735206`*^9}, {3.5754370563082805`*^9, 
   3.5754370570509973`*^9}, {3.575437186600172*^9, 3.575437186757313*^9}, {
   3.5754372261857276`*^9, 3.575437256189643*^9}, {3.5754379575648108`*^9, 
   3.5754379614953413`*^9}, {3.575438014215634*^9, 3.5754380192372084`*^9}, 
   3.575438066941944*^9, {3.575438106136097*^9, 3.5754381116720643`*^9}, {
   3.5754381488474245`*^9, 3.575438174204164*^9}, {3.5791571379998145`*^9, 
   3.5791571960028515`*^9}, {3.5808848301862564`*^9, 
   3.5808848321109343`*^9}, {3.5808850350479927`*^9, 
   3.5808850368456354`*^9}, {3.580885080162471*^9, 3.580885081323536*^9}, {
   3.580885202657362*^9, 3.5808852122690115`*^9}, {3.580885335619643*^9, 
   3.580885382280504*^9}, 3.580885451883956*^9, 3.580885482440358*^9, {
   3.5808857211365204`*^9, 3.5808857459528046`*^9}, {3.5808858323772917`*^9, 
   3.5808859026323204`*^9}, 3.58088593286644*^9, {3.580885992758169*^9, 
   3.5808860016711655`*^9}, 3.580886073993046*^9, {3.5808862040447187`*^9, 
   3.580886222585353*^9}, {3.5808862966058035`*^9, 3.5808862997085395`*^9}, {
   3.5808863352014275`*^9, 3.580886343844184*^9}, {3.5808864165663733`*^9, 
   3.5808864342912755`*^9}, {3.580886488943345*^9, 3.580886489535864*^9}, {
   3.580886569290425*^9, 3.580886594981442*^9}, {3.580888909861197*^9, 
   3.580888929333637*^9}, {3.5808889783235703`*^9, 3.580889057321439*^9}, {
   3.58088909751049*^9, 3.5808891819723105`*^9}, {3.5808892130741644`*^9, 
   3.580889224900773*^9}, {3.5808893483905587`*^9, 3.5808893728665166`*^9}, {
   3.580889523109301*^9, 3.5808895372610044`*^9}, {3.5808896631339235`*^9, 
   3.5808896804535007`*^9}, {3.580889716199545*^9, 3.5808897362545176`*^9}, {
   3.5808899693366184`*^9, 3.58088997486758*^9}, {3.5808900300360727`*^9, 
   3.5808900621318665`*^9}, {3.580890238801407*^9, 3.580890269179612*^9}, {
   3.5808903397549615`*^9, 3.580890344386109*^9}, 3.5808903764478445`*^9, {
   3.5808904148102655`*^9, 3.580890428077162*^9}, {3.580890458575524*^9, 
   3.580890500282941*^9}, {3.5808905317331853`*^9, 3.5808905663592196`*^9}, {
   3.580890599536992*^9, 3.580890606609331*^9}, {3.580890803562018*^9, 
   3.580890827247309*^9}, {3.5808909983037214`*^9, 3.5808910352138343`*^9}, {
   3.580891088261428*^9, 3.580891090895789*^9}, {3.5808911363816433`*^9, 
   3.580891162757255*^9}, {3.58089121681275*^9, 3.580891273626717*^9}, {
   3.5808913417448263`*^9, 3.580891440822711*^9}, {3.580891497884903*^9, 
   3.580891536614648*^9}, {3.580891620806178*^9, 3.580891643156228*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfslh244TTjM4gDh37JfqfcgtY1X
yEF++QsPvf+P7c/279+ywl8cKv/K3lfv2AGrOCkHl+6c579XfrAXDD93T/Kv
NFT9Z3v9+7823JOQdfh5KGVVQsh3+yWhui811OWg+n/Z98lr9c6IlHdY9ysm
9+i/v/YtHy/vMLdXgJrH4LAo4ZjImp0KDoYztSSmhjA5PFp/UuqrhCLUfGaH
Qz63928KUnTg2bqs8vhKVof82SsF+nMUofaxO0x0PnJ2ZYmiw7MLSrd//uNw
WCt2I1kpVxFqP5dDWfZMnuPRig4H38yz0QnhcbhxpTLkj78i1D28Dg07VodP
tFR0mMUhPS9uJb/Dn9893OxailD3CTg0qry57Smi6GA96XS9R72gg8nnJ7OY
GBWh7hVyOPpfNnDhJwUHjQWdGx5qCjuEHNt/fscDBaj7hR3OngGCKwoOouvc
H1ZdEXHQ8Mgp5z+hAPWPqMP1Hz7fzh9WcGDawyokUi/mkLhEfOvvrQpQ/4k7
vHRpWpm2TsHhw8nDTms1JRyefDf7e3O5AtS/Eg7Zl2/EcS9ScLh7vbHY7Yqk
g4OBe//92QpQ/0s55O/8tdFzmoLDqaf2S+7XSTv0rU3nOD5FARoeMg6Lktmn
7gDK7/j890qFpqzD1DnC1RnTFaDhI+tgoBea2T1ZwWEpI9CBV+QcTEABCNQP
CS95h60r/Ivapyo4jKa30fRGz/QGAJ/2PS4=
        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw1mHlYjOv/x9v3vWmbauZ50DIOKcJBet4qHSTCIFRExUgoQqkklLLkUH5k
JJUoQkg4WmRLllJzLEXkoMbuSJuW332+z9NfXa+ruaae+dyf9/s1N710zexg
JQUFBTdFBYX/fnrsWtXyK/8b47Kh1Xb8PksIT7ZOcej/wTyYHpTjM9oa3gaR
wnhxG2Medqli1yJrxEUptj/Ob2NqslOdLbZao/DNngeD+9sY3pCAc90nrPHC
i58TKf7JPJ7Q8cqp2ho6xXlRd/N/Mh/6j62r+GyNCYJRPhb9P5kwdS3TUwYC
hCaV24aK25kyanb4h5ECZHzz6r2e385Uq/cPTxYLUL3gWb1efzsz2krhx45I
AboqgwqWiDuYRLMzwW/SBbAf9j3+Qn4Hs+BmuSirWADf9Nj5Kv0dzJ5zfs0V
MgGS+jQd5ok7mahW9eGePwQoWX5Q5VR+J6NXeOq0k6EQ72sHNXb1dTI8m6Tu
7Q5CmI4/V+Ql7mJmmHkVT/ISwiNnws6j+V3MxWPdkZLlQkTqVAV87etiDr7r
lPUmCHEiUjx6kribefZYRaKQKUR902vtA/ndjNntsXcjrgihNCXszdu+buaF
t8q2eXVCjCzqujJG/Iu52+TsUPhRiKX8xNSd+b+YELfIYS5KFP7cZhTS0PeL
OfnoYZWfHoUbnzJdhol7mBGeySPH8Sl8nfubcVx+DxM+bsyIOhsKVHmJvKav
h1n6765t9k4UfOw9KmhxL3OwRvLDxYVC3J+1B9fl9zIzjz2ZZPAHhbPdfmG3
+3qZjO5+x5xZFF4uk7ubifuY5VnjEtoXUdB+GMmX5PcxR2t7fmqFUJg4Run7
tb4+ZszJFq/mNRRWHdt7V0fcz8zaeN0tOopChoZlZkB+PzPTNvDQkwQK1eEn
15/v62daE5s0O3ZRiPl82EZxqALcLy2e8yKNgsmg1wYFYgXohDk5Jh2lUDjP
tmf2FgXsXX1jYecJCux5VEBVzdHdjmcpvCi/UJcrU0CK3/o4x8sU1rV1lnr3
KyDxm2FrZyn5f0VMfrtIESvqAuNTblPI8d+RdkysiDa9sN53DyhM2H9/y5Qt
ijCRLeDpyCjU3TEM/Z6viN77K6N6Gyis/DV/XoZMEWM39b261kxByTFzknu/
Isp27+32aCXPF/R22CeREiy9zkVLv1BwOjzUPF2shPCXeoaVbRTuPVyr7LpF
CTlF68Mud1MIVCr58j5fCYGyCtdoBRpdY3qfp8qU4DH940g9NRr7Qt1v/96v
hOb1yh0R2jTss5LPN4uU0bJgxNh8AxrlspojKWJlOBudziwyoTFf0zRp1BZl
yPlVT3fzaXyb6BfxIl8ZKRc+7ZogpJEUke2/Q6YMTecDy8oG09z+KqM1fKqa
qT2Ny40Ozk9FKphleJ7vPozm9lkFtu+iPD0dabz3+EtLtEUF/KmhDpQzze23
CmpjFmx4PJaGydk/mqNlKvjQJ7qxcALN7bsK7Fsfn7/uSsPDTFbyQKSKTZ5z
33dMorn9V4XRpjuKupNprI9fslewRRX7Eidn9/xBc3mgCsWE/uC702jkyD8F
rZWpQuvF8A9h3jSXD6r4t9Lk/reZNOpnR02oFKnhRox6rs9smssLNcyr9Nff
K6ahdF3ViLdFDTH82Lz8eTSXH2rQGF2vmOtLY6TN/tZgmRpaJz+5EruQ5vJE
DW5LVJaO9aMRuFdQXiJSx/bHb/Y/9qe5fCEc0/tq+mIyr46CdM0t6jjg/P5F
/hKayxt1pJs7W8kDaVQsGbtqkUwdZl8SRmgvo7n8UceKmIiTBkFkXvduuhWK
NHCp5YRxN2E2jzRgonNTqSqYxv8eN04D556FK20Oobl80kBVwaJjxstpzJS+
+Ooj00DjqaHB+wmzeaWBYuvkpg7CcaqSO9kiTSTXU+keK2guvzShuSbDMIrw
2dU/pW1xmoitljamE2bzTBMNPg+ijhB++XTrOk+ZJl76VoenEGbzTROCeOcp
ywhrT9KbdkikhaFqufG2hNm808Ihu8KjMvL3JxRkUB/itGAb1UStJszmnxaq
3SpSfpDnCTW265gg08LjhvqFwYTZPNTCZ4UD+rfI80tjLj7cI9LGvHFrbA0I
s/mojUa7x5bTyOdV/Y7JfRWnjZ4PZqER5PNl81IbKhsP7U1eSuY140G0k0wb
Vt+l/alkHmx+aiNYK2hMIpmX6IrvrG0iHegvogpWkXmyeaqD8NKOWvcAGgvo
d3Z/x+mAyleidMj82XzVgdZeL+07i8i8UsL7bGU6SBzxSDWCnB82b3Wwpn/D
VoMFNK786JVtEunCPWrQ1+PzaS5/deEYKy2zJefxvV/K6eo4XTidPhZwjJxX
No91QZXJXHTmkP26Y5pgJdNFw/vHt8Nm0Vw+68LTjh98i5x/zxE5vqtFeogu
tNphMIPm8loPDxycU2dPJ/M6NGJERZwePrrlfUwh+8Tmtx66yrIVr00h81Ik
CyLTg9TAfexrT5rLcz1YHU7+3utBQ7ZyyotlIn1s0ghMM3anuXzXR+yVIwk0
2WclmexCcZw+3qr/sLZnaC7v9bGgWO2u3UQazhMDk9Vl+jg13u8lRfKBzX99
3LELKDceR8Opvv3cGZ4BPsQuqlYgecL2gQHOaiUtbCV5U6U+8chcxgD8m+3V
1SNprh8MUCnIiTxF8inQZVtin8QAryJCLm51oLm+MECId0/jPJJnnWvvhZ9M
M4B5rYKn/VCa6w8D5Gp/82y3I/t7Qt/fp9wA1xfajLphQ3N9YoAhpQ3+ySQv
7RvmTumSG+D5SHuLmTTN9Qt5PzPly0YkX8v1pKOyeYbYunnidpkVzfWNIYZv
21GXRvJ4vvsbgRdjiLLSoC9zzGmuf8jrE5ghRqbkPG2012qTGCLOS1xeY0xz
fWSIgwZ/ae4xJOfrDFnQNEOkZgdNn6ZPc/1kCFc1fo26Lsnz5kuvJ5cbIqVm
87PbWjTXV4bYH6N4drsGyXeTX/e/yA1RWdt5wIP0C9tfhng7YsdDVRWS99Mm
lfwfzwiuXZnSKkWa6zMjnHlj5Lann8K7uKRsMEYomLO1d07vQL8ZIa7CX9f6
F4VYsp5yiRGg+uVsa+dA3xmht2KqoKSd9HmrcdT+NCPcOb/g4M62gf4zQrXW
Ux//f0m/Wy0MmlBuhMjn0xJHf6O4PjRC9Dzd1YakTz1mZc18KzfC98mTXb9/
pLh+NELMrJbf/pZTaNzxfvwenjHclxWvLG2huL40hkDRdXjBOwrrrw2zHcMY
4+zJxtwj/1BcfxojwuaS4n7S59pfIwxfSYzx6GdJxJ5XFNenxnCRHrfZ+5JC
7uCrPUlpxvDrb/NMa6S4fjVGz80+xaznxB98+1scy42BU/XxRU8prm+NcaVp
5qeqv4lP7J5c/1xujA0S01Xv6ymuf43Bj9xnq1VHIfTGrrIEHg89Fz/BuZbi
+pgHl6uCV0GPiG+Qtv2N4aFuTtNgKfEVtp95uCTPc2yopvDfOGQSHprrLtsI
71FcX/MQd0lvUOhdCiMXB8THpvHQ2rjWvYz4D9vf5PWHl+SZ3yLzOpAbalvO
w/ajdEh0JcX1OQ+xM0uk/1RQWFr1YV6NnAf14W+Xissprt95EA4W1T4gftXV
4+i2iWeCzfJb3dOvU1zfm6DS/2KH7BqZl9PG4TRjgtSmMw1BVymu/02wJ8/m
ck8JmVdIqXm1xAQpdt5HpMTfWB8wQVawboZHMYWKDGWVdWkmGD9b60bbRYrz
AxOMtjtuXXiBgm/N1K+W5Sb4fKPlr7AiivMFE0j6TueNOU/mpbyv4ZbcBL5G
61rUz1GcP5jAs3VTYnMhmdfvT26H8UxxKPpcys0zFOcTprjgUNZVeJqCIMyq
yJQxha6j4rOsAorzC1PMur/TXppP5nV8qbRcYoqQe+afj52iON8wxYFqO9sz
JynMeHIqaUWaKRKPN9VV5FGcf5gi6azZ95fEZ99rkQNYbor14wNilQmzPmKK
d48/RzjlknkxowOuyU3hlVV0f3kOxfmJKX5Wu8fnZZN5rd88dRnPDGMefEr6
fJzifMUM8Y+yn7kQLjx1w1mHMUOQuubytCyK8xcz3DVaY9t2jMLkl+pUscQM
H7xrNfwIsz5jhk0j6/vuZ5J5Gc7QDkgzw8Wiqg53wqzfmGF36unmm8TP13um
tauVm+FIqTDfizDrO2aYfzl8XKOUzGtzQ/M5uRkEz9JjIgiz/mOGpRV2iwwJ
55yjHvryzLEvT3K95AjF+ZA5QkrcE4MJu7wNuaLImOPZGvejfMKsH5ljcmfG
2ycZZF7mhTkFEnNEb6FcMwizvmSO9+neKUGEV3r/2DsnzRz7d7qeGk2Y9Sdz
TLteFKlLWClhXHRPmTkKNNRrPh6mOJ8yh48xk1pLOOPyluATcnM8LOhO/Ysw
61fmkNHR+WcIj/p422cGzwJzC6QXcgizvmWBlPOv4rMI3xPquHS4WkBrTEBr
NmHWvyzQOqz2rwLCgeLZdlkSCzTVJT8oIcz6mAXG62z+cI9w185DRlPTLKBX
7vD2NWHWzywgdqhO7CG8r7Sp93uZBbrFOplW5HlYXyPvB+82EBb9O0SeIbeA
YHXsbAlh1t8s0EnbxKcTrrANlbnz+NC6s8z9NmHW5/iY5v51SSdh30VF5Z9c
+YC/sdSBfP6s3/HRp1N0efl/80olB0bCx5QXE8NzCLO+x0c2bqY0E068NfGg
axofm9pfVtBk3qz/8THEr7RmGWGqa9vWljI+9B4OijhJmPVBPip6lgR+Ilwy
vHrVPjkfarMXzR1Jzhfrh3y0TdqhEkV45lID33E8S5iebh5cQZj1RUusclRa
rk7Oa8vBee5vXC2RmaYWP4Mw64+WUDCRCtMJx96XOuySWOLMrZ62BsKsT1oi
o+VLoZDsg5nCPxbOaZao9L7VvpQw65eWGHZ2QXQu4UJnkerLMkt0K5q++Ycw
65uWkL6S/02RfZssWfNth9wSdX/P6FmYNfD93RJVdzy7/yTcdLS40YFnhTHu
i9bdJsz6qBXWvpNq/iS8vu7XnaeuhM9k+1PHB77vW0FvfrLeH4R11N0uxEus
oFL+79UVhFlftULnKNWe7YRzyXERpVnhwpOVa44cH7gfsMKgNp/C04Rd1j7a
WVdmhegly72LCbM+a4Xxda/elRCW5fLWb5ZbIWhimPbF4wP3CVbY5OA+K49w
6POFi4fwrLHfxmTqn4RZ37VG5neTbesIK+sdn/bQ1Rq/a3fsmX584P7BGt1f
W9otCR92axm9QWKNoNj0qc3keVkftobjdJGBlPAoUh/CNGsM0p5a75U1cF9h
Db8GE/438nnfP71Op6rMGm55v63cSZj1ZWvIErL+4P03r9dXO9bKrbFWTWX0
gcyB+w1r4ETARRXC3TwyYJ4AOjpObivI+WF9WoDdm9ctLiXnb99Uz0eVrgI4
Dk5PUpYO3IcIkBWzefR4cr6Hxu2+GioRYHve1jdL/tuv//m2AGfLN6ptJPtZ
SXSSlyaAp1u2WcyhgfsTARoCrqas+T+yXy3m+0rLyO/nt9b5HKQ4Hxfg94YH
gcJ0sl+WizeHyAWo9d9wsuHAwH2LAD3RwUYJ+8m8fE6E6POEWDVll77JnxTn
60L0FU/ROpBKfGPHx1lXXIXwbAlb9WvPwP2MEILUcZneu8m8rjpNDJQIkTLN
Vy05heJ8Xoi3v/7RLNxJ9usLEdQ0IepslulcTRy4zxFiv2fVmjPbKfw/Nz+i
9Q==
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKXtN+5XfXlb8sofwb9lv39r6fOki
Lgf55S889P4/tk/+OPuQ11YhB4j8K3v9XAsdXh8xB5funOe/V36wL2+53CQe
KwFV/9n+Rau1uNsqSYefh1JWJYR8tzdeYWYhuFcKqv+X/VStwG/TLkk7rPsV
k3v031/7k0VCXvEvZKDmMTj4bRVLW3hX1sFwppbE1BAmhyc/Fl7qmCkHNZ/Z
YZvAkwUtkvIOPFuXVR5fyepwYNOlJSIp8lD72B2e3KhqK6iRd3h2Qen2z38c
Dgs9kzx3VstD7edysA7dl66SJO9w8M08G50QHofz13Wm99rJQ93D61DKNItD
Wk7eAUjOi1vJ7yCjJrXkwU85qPsEHBIfqpyVvyznYD3pdL1HvaBDUkZpUdsm
Oah7hRyEd2/bHj1JzkFjQeeGh5rCDoveMU+4VQJzv7BDYMuVt2+i5RxE17k/
rLoi4sBwglPYzVkO6h9RhxnZF5m26Mo5MO1hFRKpF3N46Lj59T0pOaj/xB3W
R8384M0r5/Dh5GGntZoSDk+TyxsnMclB/SvhsLysbaXuV1mHu9cbi92uSDpc
VX0scfKdLNT/Ug426dwca5/LOpx6ar/kfp20g4PfDINZT2Wh4SHjUP91R/7W
e7IOOz7/vVKhKevw9sP1lN5bstDwkXUIazbYXn1T1mEpI9CBV+Qc8gyuJLbe
loWGl7zDxqXuwbZA+dH0Npre6JneALEXMYI=
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw1mHk8VPsfxq3Zxj4YZs45Wq8pKqWVnMdSlEq5KkmiRU0qLXS10UL7ou60
oUWUFG3XjTYkidKmqVtKyY0MQsmW7fe9vznzl9fzes2Mc77P5/M873P6Lgzz
WaKmoqLiqqqi8t9f930rvnamNbENwQ5hDYYCMKk1nkN7m1m6/9281+mWmGYU
wWz1/cne7Zi6K6rUElEbVFtfpv1kE/wDBsS0WSKj8kBJ/96frEefeL0aoRU+
eFklR/i2sDvN/r16mbUC7+8LGx6ltbDuSeyOFwut4EiPnGHZ28JuWF7ROifW
CqG7cgeF+rayRttFm9xSrRDf5NV9N62VfdG0KlpaZIXHc9++MuhtZdkF4Wun
yq3Qkb/4UpBvG3v0Xs39FTpC2Nh+33ojrY09XJdS1mojhN/RLXM0etvYiKBE
m3oPIXb16Ayd7dvOfigtM58eIkTW0mMaF9Pa2fSKbYZ0jBDVL/q97+hpZ7tv
Fm6anySE+fir1718O9jWW40P9HOEcE923H0qrYN9aOvjPbxMiAheUWBjTwcb
+c47prBFiPMRvqNcfH+x9dm+RS+NRHj1sULvz7RfbGa8LPr3ISKoea6s/NLz
i+0s8TSYNlGEEdc7skf7drIRBXZvcgNFWGi189DutE4WBSrjMv4Q4fAOk5Cy
nk62KHbCcfM4Ee7Xn3ay9e1ib1bMm9GdKkLjrCGmUWld7Ju1T/MX5opgnZsl
f97TxXZ6dHp5vhFhho17Xl/fbrZmm5vn1XoRog6/OLYurZsdp9JmclKNwpVf
ASsf9nSzU7Xn9NESUChfJHez8O1hqW9HNv2ypaD3NMJKktbDumY9fBzuQmHC
aLXvt3t62NslzVP+mEVhxZmDj3i+vWzTCW0fdQmFeG3h6cC0XjbWQeZgtZnC
4zWp4dd6ellvfR2PewcpbP52cqDqYBWMPTju/bezFMz6VRhd8lWB6NFr14wb
FDJmD+ryiVZBAV/8rOsBBcU8quB+0ZySchmFD7k3SlNkKvB+GbBvZhWFdT/b
703rVcGUYC2/uS3kesVsWqtYFdon2re0atBInh8rPeOriuniJI/BfBqOR55E
e0arYogm29PSj0ZpoXHo9zRVVPeWyf3taSzvnDM7XqaKmg2TZvqzNNSGn3Zx
61XFMS3LjS1TacQv/mJbL1bDDMsrF+38adifHCw46qsGp+R+1hpLaRQ/Xa3u
HK2GyQ99+m1cRyNYLauhOk0Nauv+aYyLptExuvvdIZkaNgs1iibvoxEX6vZw
bK8aPGZ+qTl/jIbN2T3XPovV4bJ23KELSTRyZc8T9vqqQ+od2To1ncYcHfNd
I6PVceh1oV/8TRpNEwLWfkhTx4G/OhoO5dHYtfbc/FiZOr6qH2ka+pjm9lcd
b5pv/xn5isbN90Md/hFrwDfUQ3/VB5rbZw1o/X01zqiKRrX7HV1xtAbGDTKc
EfyN5vZbA+cL+24ObqFhdsXj80aZBiTtLu4m3TS37xpoY0LehGswcLeQZZWI
NdHsRS/Yq8dw+68JQflhHV8TBuFbgw7S0ZroP3RLb6mA4fJAE7mOwyTaDINk
ef3i1TJNrJi6a2XLAIbLB034nvhhnzCYwSufDY754j6Y/V1S9msYw+VFHxQv
D9tjNoqB2l1NE350H4Sr8oLqxzFcfvRBtNvTLVudGYwYeKRmiawPPNvzVV65
MlyekN8r2qxZNYlB8EE6N0ushbFVWqlZUxguX7QQeb2+x2s6g7i2S0d1orWw
ZZntwOSZDJc3WlhS6Dw8x5dBXtCYFfNkWtC/Zjjq9ByGyx8tyMq6Jrn7M2gq
fuCaIdbG8fBXf1wPYLg8IvrJ03+qAxn8/3ajtBHUGhdRFcRw+aSNi5sGB15Z
yMA78UPjDJk2nH/pn3JdzHB5pY2fL0yckpcwiNKUFJ4T62BH4Rq3lyEMl186
CL2ef+vpUgZXVrUk/ozSQR3zK/nkMobLMx286w3RHC1hUP7PtnWTZDqIm3Tt
UzLRinzTQdmJ0hFfiNZzMZhyQqwL2Q+qu41oRd7potR7pGMF0Y6X4q1ro3Qx
zUet5hTRivzTRXFdYZc90aGmv7U5ynRxT0NrzSny/xV5qIu1A+LGfybXl7j5
r6cHxHpoE0RM6yHXr8hHPWie0UtsIff3uIpN+RSlhw86teZF5P4VeamH0XVf
0tcvIn5NL9loL9PDiDs8LzVyXor81IPd1ssfQsl5irP9Zu4Q83BtvatXJjlv
RZ7ysODWrqgPxI+5fat+ex3Fw5uaRQFVxC9FvvIgfdVY9NyP+LV3Tc8gGQ/V
1NoLibMZLm95KJYHvJ5K/M9u7pZFivXxJsrL4TOZD0X+6oP+0XvG35v4FbD3
8uMofdg9C2q+NZXh8lgfL2+v11Ih82ZWaL5dJNOH0cDlf9l5MFw+68Pi69YS
N3cGk4Yl+60SG8C8STjIzYXh8toANvWZh23JfEecGDYsL8oALvXvP6o4Mlx+
G8DIYNT7vDHEL1WyIDIDNPVf77PSgeHy3ADZAYsNtOwZyJZ7flgkNkRh3cs3
B+0YLt8NUXAtYY0m2T81mezG31GGSPl04VzoIIbLe0Nsv/hxSH4/Bg4Tgvdo
yQyx/5P9Ux2yz4r8N0RVSpy7m5CB/avWq+l8Ixzj1U4Ls2C4PjDC8kJx8kFT
BkVaExJmsUaoeDiqK8mQ4frBCDq1dQaXSJ4EO+3Y2SMxQuR55lCqFsP1hRFs
LhwfmqDOoH118ZpUqRH8tuidiu2luf4wQpRH391LO0nenjecPyPXCGN9QxNc
2miuT4xg9WzJVn4zyd+yWZ4dciOcXRj+saKB5vrFCLa1n/xTa0keGySOPMc3
RoGh7MSyaprrG2NYdwSMG1hJ8tmtkvZijbGqYfH78nJl/xiTHrgh/PMdjcY/
bHR/SozRfutf6cTXyj4yxvrM1Z9aXpD8TicLKjWGy+8ph1NKlP1kjGfBiaxP
Ecnzz5kVE3ONEXVv0qbeB8q+MkZGd6AsPZfku1nnkwa5MfyEK97631H2lzEc
LXNMdLNI3k9xyTrON8Gpy6G8OzeUfWYCnwrvqauu0KiK2nUOrAnWFWrNGXBJ
2W8m2GbedKX8PI0tZD3lEhNYlfWTxScp+84EHaYR7gGnSD/UmG44IjXB56Xh
m/qdVPafCZbnL/7xTUr6QuS/2DHXBOaqzta5cco+NIFefNqGY/uJXzPPen+R
m4DnrrImfLeyH00Qdtpj/dwYGu9jq8cf4Jui7u2wtolblX1pij/nGS8Yv5lG
+G3bQaNZU1xbVWs+JlLZn6bIrAyIdQonfjWuNf4kMYVp9mUDr9XKPjXF+EfZ
/EUraKT0v9W1S2qKyGVqbTHLlP1qiifCJJPri4lffr1fh+eaomr4xPyvQcq+
NYV2mEOgeD7xa//EV+/kpqi/6+G0fq6yf02RWlRz9dksGqH39+Vs5/Nx8qqh
7kgfZR/zMfUCTiZPJ36Rth3C8hF8dk+atZeyn/kIb4+OueRB4z87ZBI+eALn
NS7uyr7mI5IJzqwCjRELArdukfJx/UCfuOMTlP1Nfq+m2G3OeOLXnymhg3L5
OLMonzdwjLLP+WjZs3WgqgONhUW1s5/L+XD9oldYN1zZ73wcTqroX2VH/Ooa
7hrJNwPNflvzbTDN9b0ZBMPjKjRsiF/2f9j1Zc1wO/boqSEDaa7/zdB0zEEW
THjLJuSe4LHEDHsv6mekMjTHA2aolP42vVtEIy9eXWOd1Aw/1n0rW2hFc3xg
Br6bbfhbCxp+zyc3CnPNYHDAaGygGc3xghkajAe4/jQhfqnHlRXIzSBb5XU5
3ojm+MEMvMIHe2YaEL/Gvnm4km+OFyHW3wU8muMJczhHeP5o0qFBrxRdN2fN
MfZIeMI7LZrjC3PM2GHbXqpJ/EpamJgrMUd+mbtxuTrN8YY5bM58qG9TpTH9
zcVdy6TmSGn2P9hfheb4wxxHcle0LuihUK1LBjDXHDtnq/XP6KI4HjHHeOtp
hnqdFKLYUYG35eYIwL2/NnRQHJ+Y45hzr2ZHG+Hl8E2TF/Et4H+lo313K8Xx
igXq3zzeLCb8m3HxvgOPtQBvXmFUWTPF8YsF+n1eK0/4QWFiuZb13xILtN7e
lbLyO8XxjAUyD9RKvZsIXxtP1wuUWqCwIz3RpZHi+MYC2a66CW4NFMInSVv7
5FpgaNviFbO+URzvWODmCffa9fUUeJvKPl+VW+Cx2+91qXUUxz8WSJkzz62m
lkLyVeunfnwBaHrigzFEK3hIgPx1/HHH5BScvoRkq7ICbAyrDlMnWsFHAqTo
Ng6LrqHwSpCRfEkiQGXRemcdohW8JIBB0Nv5SV8pLJ/WfPB3qQDmQVHTPIhW
8JMATWUVxb+qKahtH7exK0eAVbwd++8QreApAcarfffaQ3T8zegl5+UC5Lnd
u7OIaAVfCdC1IWr/FKJH1j2cMZ1viWUWT0MnEK3gLUsYqbhoOBFdzPCc2pwt
McI+rHsi0Qr+ssQMyddOf6KDfX1+OyuxxKAX9kkbiVbwmCVCTpfsSyG6Y/cJ
k8lSS1x6KJ7zlmgFn1ki7kR6ghm5n7h7H7u/51jCb21qwzyiFbxmiYbAuZWX
iBb/GCCPl1vibX6dpho5HwW/WYJWX10VRHTeoFCZG588h9uV6zwiWsFzVph0
Wr9jJDlvv3nXc+udrXAx/e6oVKIVfGcF0fQY1vo/vw6RgZFYYXNe2ZHTRCt4
zwqJ9kZpfYnfOwsmHHOWks8vndp+kWgF/1nBKWR/80gyH9YdO7Z9zbHCT+FZ
3XyiFTxIvq9hc8mHzFOW3eMVceS53kZ2xLGKaAUfkuuhhAM3kPnzXmjkN44v
xP7OgmJ9Mp8KXiTP+Vnz9pwj+uux2W6VzkJI14TljSbzrOBHIUqKfYqKid7y
JHHoPokQnjsFbf5k/hU8KYS10+EzcqItVP61dJAKod3maRxB9kXBl+Tzn2NO
dBGd4SDWLM8RIr0OUdH/7df/eVMIpwg77W6iJ0rCmmLlQqxoTo8M/0lx/ClE
5smXBlVEfzz19/uhfBGuqc7rM53sq4JHRRC8+uv4FaLDSzsL/3EWwTO0sU2T
7LeCT0WQxj7y+51onpbrja0SEWoqT9YcJVrBqyLIvi8pLSE6hYyLWCrC4vWP
J7QRreBXEUQj1L35JD+cVj/bXZojQua+6kH9iVbwrAgOY/6t7Ee0LIUfvkku
Qkp5d6IJ0Qq+FWH4w2eh38nvhb7zXzCAT6EiMnphDtEK3iVzubooLpJodYOk
KU+dKdRkN6gxRCv4l4Io4f79a+T+Trp+HbVeQuGn+4lSW6IVPEwhc7X3mCPk
fEaS+mCkZM54Hg2fyHkq+JhCzJcFP/hEP7m8jleUQyFoUsf44cQPBS9TuJjR
cGc48W9hxa221WRuPSVHl5g1Kd9vUID77QHlZH5+8YnBfBrD7c5U7iTzpeBp
GpEf22OMyTzGTZ70LN+ZRnts/bdNtcr3ITTGrtTvKiD7Mjhq/61QCY36s/57
68h+KnibhudJp9UNXyjkE5zkE87Z/Xn7tpJK5fsTGrZ5wQdjKsh+fRXE3cuh
EfMxbJHZR4rjcRra35OLt7wn9y1csClETqMg0Gfn3bfK9y00MuWD5714Tfya
cT7EkM/AdvboPtmlFMfrhNNNZS5rn1NgYutmZpPngLzKrILuJ8r3Mwx+Rn91
mVtE/LplPyGYPIeNnZy9bEcBxfE8ee6qLvmyMY/sVwMBVCmDZT9MAp3vKt/n
EC4/mxdZkkXhf/6pxUw=
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfuvevf6b/OzOkD4t+xrkjkY+moF
HeSXv/DQ+//Y3mmm2+RuQzGo/Cv7q1PPf7I5IeHg0p3z/PfKD/a7jFaYWVyU
hKr/bP8x+Uys9w9Jh5+HUlYlhHy3jw3aepdlvyRU/y97J6Xcx/4lkg7rfsXk
Hv331/6lzmaOo2GSUPMYHKbOrQsQr5R0MJypJTE1hMlB6vCcBb7/YOYzO9Se
Moy8s17KgWfrssrjK1kddHbIfzhQIA21j91BqEV7QYC9jMOzC0q3f/7jcAh5
Wu2m9EUGaj+XwxyxPS+0Z8g6HHwzz0YnhMfh3P0WJxYeOah7eB1EIxiC2fLk
HGZxSM+LW8nvoP/nQc2rFXJQ9wk46DT9X5tyXM7BetLpeo96QYcPeamd5x7J
Qd0r5PBw+q/K4I9yDhoLOjc81BR22OPg2cjKIA91v7DDPEfn/yzs8g6i69wf
Vl0RcdjwKCQ7UUwe6h9RB4MbvLfFVOUdmPawConUizlc3yvayaklD/WfuMOz
Mv3vJw3lHT6cPOy0VlPCoa7r8YHVpvJQ/0o4nDvmdWazk7zD3euNxW5XJB3Y
Nxq3nvOWh/pfyiGi/3fYaxd5h1NP7Zfcr5N22KNyrmuFpzw0PGQc5BbbfC7y
kHfY8fnvlQpNWYfbwirbdrvLQ8NH1iH8RXNqDlB+KSPQgVfkHEqtJny94iUP
DS95h+h3Z1gOA80bTW+j6Y2e6Q0Ag/cogA==
        "], {{
          RGBColor[0, 1, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 1, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw113k4Vev7BnDzHDZ7Y+1hraYjW6GSTiXWXSjN5eykuaRhpzkpJZqVkgYN
pIlKKvnWSTRRiSPSuE9JkyjhFA3GiN+7Wuv3l+tzXftaFs/7Pve9uwQu9Zur
o6WlNVRbS4v76b1z0afW1K/swCmFQwN8pGBSqnydO36wWd8ueH3IoTDGchWz
QVXP3jWdMurhFQoRYdqNT1LrWaMf6jfO5yiklcc86NZRz7JftrQanaDwepQ0
eZWqgT1cnb595kEKZhlnwv5JbWDXh9QOd4uh4E67jqc6GliJw/fSXVsoBEfl
2AerGtnLYSW3F4RTSPg66tfN1Eb2yo0mVVEIhcLJJc/MOxpZn643i68uptBy
N+jcLFUTOzT2gLvTfAoOvb5tuJzaxNq/a4zqPZtCwIH1k/Q6mtiVc+eH3J1K
Iard2Nlf1cx6u6fEf/CnkDn/oN7Z1GZ2RmPlvMN+FCofd33V0t7Myvysu7wb
S8FmUPqlUaoWVj7MrfzaKAreye7bj6a2sG3NlYeVIyisMiuYUdfewrbUvjF0
GU7h9CqV2xDVT/ZnXnReoQ+FZ2/LTPen/mSP3Hno/subgo7v4vIP7T/Zwin/
pOQT973UktVf1cpOa0qnepDPB0q3xW5PbWX3vn0ZQg+jsHez1bzS9lZWsez6
0gvk+Xc+HxvcS9XGlu23iHtMfn/dxJ7WEaltrNYIKRs9mkLnnMzqR+1t7POe
dSdLxlEY7+B9u4vqF1t6/fWd63+Ree19fHBl6i+20vrTGpcAChd/Tluc1/6L
7a0JCHWbTuHNnGovW1U72ydzAVsUSMG0eJVUndrO+mz64VK3gIJHf51v19vb
2RW3Rqw7vpTCouO7/zFTdbCDL1g6lYaSeRnJjs1I7WCzP7s5Ho0g81qeEvK/
9g7W1rahT+U2CuFf4v/QdtTCnPO1by/HUpB0LbM8p9Ii7zXurFY8OT/+9m1+
kVqYOceo4kES+X//Po9asLhknStOI+cp5/LTUxot9AsqnPZvJoWV9c23xnRo
oXSWzxnTXPK+Sja1UamN6LCiNVceUkievjXuuEobuvkj9z0oJedtX1Gkb6Q2
Hs99fXD8JwpP80XB31K18enyBCuPegoLWyf5J2i00V5xP2y3thQ6vY8N8eog
n5eOcxpiIUVC0Iden5U6ePgiLGyCQoo+8Y52B1Q6eFZIxd/oKcX94mW6npE6
WNZUfnXdIClm62TWVqbqoH83ui5mhBQt/X+9jNXooHzL1Am1AVLsCfbKG9Ch
g6oL9uWHF0jhcGLH/94rdVFx8nrijjVS5GgeHYlW6SLWOSPk5nYpJhnbRLlG
6uJEYMEkp3gpvnpMW/E6VReTRqtdSlKliFqRNH2rRhdFDWvLs67///3VxZer
9f5FRVJcfeXc74VSD+d+bFpp+kYq3Gc9FAd16bKqVopK7xsmykg9GFtdHK2n
JRPutx5KeoZUXRHJILk4/P1ajR7Ot6V92dRNJtx3PfzZ99f0hW4yeNtqMh8o
9bH2fon3/OEy4f7rw+J7XdaqyTKEbJi1m47Uh8h345u9wTJhH+hj/cPTFZnr
ZUiu/hy0TKMPeybW9EOsTNgP+jg0Puu0VZIMz/zC3O8qDXBPYSzGFZmwLwzQ
UllTuCBfBp2b+lbiSAOoXMb57SiRCfvDALd8UoYdq5Gh7x/7quZqDNBf82Dy
qTaZsE8MYC1/9ddhczlm76ZzMpWGWH6p2Xp1Z7mwXwzx737RXo++cuxpOnfA
ONIQvjEbS6u85MK+McTZBxftQifKcXvWn4umagzx/npcTPk8ubB/DHFEwh7o
uUaOr/dzh6YpjRAe5HZm7A65sI+MMKrq+YQRCXL8/nMjjODslOJNnZcL+8kI
L1bsHHbzhhzjEl/XjdcYYY59y6DeD+TCvjLCjcuSLitfyxGhr85PUhpjeP0/
1ps/y4X9ZYwXp26MmNEmx8UlDYn1Ecb4Ipsk0TVTCPvMGDvzkz8slSnw5sXG
lcM0xmBuK4ckOyqE/WaM5tbsR0cGKmA6xHzkYaUJVCEjxwf4KoR9Z4I7JeuO
vvBXwP1cQueaCBN4DFpzwW6uQth/JnD5M3yXdKUCwdY9mtw1JnjSK2Te6w0K
YR+a4GBjdPj03Qokhv9dHKM0xbj8dOXRIwphP5riv5PW7xPOKlD4kT31LsIU
1eLjTv4ZCmFfmmLfqVmXHt5RoGXsg7V9NKZIPFjfXe+hQtifpkiPr/RvfKmA
MitgwmalGZrfdup5+qNC2Kdm6Oz6Id7ymwKTu3zs8W+EGQ4ll6QPaFMI+9UM
592P7VIY0oiKXt5urzHD/cDVgTkiWti3ZngXGLGKltPI+vFLs0bZCd5H/pO6
29PC/u2EBe8nZ0l606icFn2+MKITAmOMcy8OpIV93Al3L3TNMfCiIcm32STX
dMLMp42e9Gha2M+dUNAwtLxBRWOYS3LAEqU5Uh8vn7h7Oi3sa3N4dH83vmou
jVWHXVxuR5ij82j5Yb0ltLC/zREQ2b+lYhWN09rkgmjMoZJ1jIpaTwv73By/
xvkvr9tCQ7PQ9/UcpQUKItb4KXbRwn63QFr82DLRfho6Gs3ljAgLaBXesXoY
Twv73gLFJ62q/E7Q6Ocxe4ehxgKhkn5BJ8/Qwv63gEOo457rF2j0edaYfkFs
iYsnloQdv0wLeWAJt9iJfSZk0Sgw9DgykbXEmdXhDx7fooV8sMSsIwMDmVwa
swdv3tautsSMKpGZZwEt5IUllFGuH52KaTQvu788Jc4S2xc1GH99Qgv5YYmR
2tMObX1OY89pi+njcyyxtTbpXF0pLeSJJQbZPZjl8o6GQ+lE35ZqS5x64Prc
p4IW8sUScx0d7ft9opFjnuiaJBYh4Obeha01tJA3IjgN23wjsZbGJK9yehQr
Qt61RmfqOy3kjwiikctLljfQqFvtYFKvFkEVk1WQ0kwLeSRC1dHoTjdbyfm6
QC5onAhtf0y9lN5OC/kkQjgkNzZrM2DeXynzyRFB37bcaaAeI+SVCI+61hs9
MWBwVdJaVFstQky9//DRxoyQXyIkzc19d96UwZiRQzIPia2w03rNva+dGCHP
rNCgZ1Mhs2TwMSIqCawVyv03dne2YoR8s4Lzo7xFDmIG68n1rFZb4UfvjgRT
G0bIOyvscfbZUWLLQFJlHbYvzgqxmgSzPRQj5J8VBvu+r+8rY5AmnxLknmOF
4CvFZnfljJCHVij1LKc8aQbeE06M+1BthXVl6tcpDCPkoxUkraEWWl0YvNpa
OShGbI232z4sGN6VEfLSGt8uT46P6MYg5Hov+/6sNT4/Gzf6THdGyE9rbAuX
OuT8wcC0boXondoaQYnfiu/bM0KeWsNl06+X+T0YnOp2rS0qzhqJx4Iqrjow
Qr5aQ1M5JTxBycA9oONT7xxrhGX07bvCkRHyljzfZGmMZ08GT3f5PHtZbQ0T
0xcirV6MkL/WyE+K9swkDr6zM3uTWIxiR7vdQU6MkMdiiFv2hRo5k3mRtO3J
iuGQfU6dTMznM/GhXI2bCwNuHBq1GN43zLvcJubzWgzbtOS/h/Zm0HfmjA3r
48QY/zL+yy1iPr/FcIzp2qtvHzKv/aeC7XPEmNQ7ueA4MZ/nYhilP7Iz7Msg
sKDG/1G1GJ+085YsIObzXYzHd7tR94hb2noPXSOWoH+24xypKyPkvQTiFU/i
gon39Fnt1IWVYM6i8u+ZxHz+S9C+TpLTQeww75ZdoVqCRynKAV79GKEPSMi5
bo/fRHw7QVdvZZwEN+elK7KJ+X4gQcKjsy0NxAGPRtTJciQIuHJvtqMbI/QF
CbS+zoqaSvxVd0/pvWoJ9Javjt9BzPcHCSbHZdy7Qhw14HneYrENXPX3u74h
5vuEDc7LF5jr9mdAL5ZfsmFt4Hhr8zp7Yr5f2KDHGRwfTnz1ZGBijtoGkz2k
ifOI+b5hA8Oi2/s2E499fjZqQZwN0ns4JR0j5vuHDW6+/PtTJnGlCTmAOTZY
nWQb+YiY7yM2KAw7sukjcQTrNuN6tQ1qmq1NfxLz/cQG7v2aXTr9SeYVsm7E
HLEtPPRXGDLEfF+xxc68xWdciNPO3ulnxtpidHhqZ5aY7y+2uB6Zu30Msc8b
w84Zalsk7fL9OoWY7zO2qJ14Z/584teisaYz4mxxcHdO+wpivt/YImhZTe56
4pBhcY0GObYYeNckL4qY7zu2iJ1lY7GX2Gxd6fv0als4jnK/GE/M9x9bVA2q
STtJnJzeuThAbEfOU5ldKjHfh+wQ2dG3JZ148Id5WdqsHRxLVAFXifl+ZIdV
mq7sTeJndmnJ59R2mBZdk3GHmO9LdtiSsuJePvHCMT92/xVnB7d4nRVFxHx/
siNzUec9ItbZNHBtW7Ydgh8a5D0j5vuUHeI2Foe+IE64Gjn3dLUdDuSOKSsl
5vuVHVjnawZviV3/yxs/Vky+V+RV1ZYR832LQtiEwKMVxPcZs8FNnhT2LZlu
U0nM9y8K66YWTK/i5qXy63FCTUG8efTqGmK+j1EwKPCb95mb1/bDViPiKJTs
N3SuJeb7GQW/CzOe1HHzuvX217dsCs+f2Pz1jZjvaxR6KW9lfCdWfu9enVBN
vvet/F/rD2K+v1GIlnTv0cDNyz5Y4yWWYmB910GNxHyfkyKi677+Tdy8pl7K
+ewpxY8FrnQzMd/vpNh6OuU756+x5MCopVAbLM9oIeb7nhRdujbM/0m87Z7H
Qc84KWbWRpi2cvP63f+kOHIIJzl3btm88VO2FD8HTXRsI+b7IHmfLXdTOGc6
FS7aUy2Fos9a6S9uXr/7oRTf1k3dzHlcoGXAQLEMC5f0q+DM90UZZtK5g9qJ
Px309yr3lOHAv1ejOfP9UYZXf1x6xnl9UaLzTrUMx2qG2XQQ831SBulA7b84
22pVUP3iZLDHjGjOfL+U4bLd05uc0/op9d9ky/A46p8aznzflGHI3yfEWgPI
/VIv/bq1WoaA+5mDOPP9U4b2xJnTOb89mvHKWSzHmf4fwjnzfVSOf6fsjOcc
8rQ1/4WnHG0GB/7mzPdTOXw+uhdxNjMcenmDWo6yzIwyznxflSPkpms951Pk
uCjj5HAxqtDXJub7qxzNrz9LOA9e9nD702w5BjeHdufM91k5nrxK7sNZc0oc
sq5aDoj2e3Dm+60cTfNn+3IOfjllZnexAmnOSj/OfN9VYOICnamcdc1Pjiz2
VOB7m84cznz/VeBwpedCzvFDP7mFqhV4N6VgGWe+Dysg+pYeytmVxAcTp8DI
PL1wznw/ViD/sGYD56LzK80KshU4WNdzK2e+LytQ29NmB+fAsmtNy6oV6J1y
dBdnvj8r0FRQFMv5p5gMWEzDRZ66jzPfp0nPC/Q4wHnPiGEP73rSeHA69hBn
vl/TaPQ9E8/ZMWLXtWA1DS+bqCOc+b5NY8CYP49yvkvqpDiORqf0G8c48/2b
hlG03QnOAZ/s9tzKplGfO+EkZ76P00isWJjE+ats5rp51TQ2UfOTOfP9nPTi
4SNO/Z7X+NPzLEgPW2YsPv17Xr/7OoMfWfd/m9n634QsTwZeoYvOcOb7O9kj
vdp/O+taH4/ZanLuD2xI4cz3eTLnoQ2/Pa6WFNQ4ci7jp5/lzPd78tx313/7
/wDh026y
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfs/4hxMKRk/7SH8W/YlW1apyi7l
cJBf/sJD7/9je80z1XMylQQdIPKv7P85/3r7OkHEwaU75/nvlR/sTRZtMf8h
JAZV/9n+78KZ6te3iDn8PJSyKiHku/2cthWH5h8Ug+r/ZX9Hf/4aiT4xh3W/
YnKP/vtrf5cr0XRaghjUPAYHqeANx26miDkYztSSmBrC5MB2lU190XyY+cwO
G0pXCv6SFHfg2bqs8vhKVgfj3zZuldvEofaxO2itflm1KFrC4dkFpds//3E4
rJ9Zs/nsXwmo/VwOa4WnPxbtkHQ4+GaejU4Ij8OWyK87b/2ShLqH10Ex/FWk
gJeUwywO6XlxK/kdREP3X/rZIAV1n4DD8+DjWkuXSzlYTzpd71Ev6BDscOs/
w24pqHuFHC5/W7/G5KSUg8aCzg0PNYUd/l1aZHfyrBTU/cIOh3XlPT3PSzmI
rnN/WHVFxGFFSOem7VekoP4RdbBTtM5PvizlwLSHVUikXsyhU0Mtv+GmFNR/
4g7/47j4Z92Vcvhw8rDTWk0Jh/3v7++xeCgF9a+EgxWHVdTVR1IOd683Frtd
kXRQvpMSIvlMCup/KYerZcI1l59IOZx6ar/kfp20gyizyiwHoH5IeMg4GIcc
DfkFtG/H579XKjRlHVo+ZDzuuCoFDR9Zh20/RBgeA+WXMgIdeEXO4U37jYSH
V2DhJe+wRW6fj8hFKYfR9Daa3uiZ3gD4yDrG
        "], {{
          RGBColor[0.6, 0.4, 0.2], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0.6, 0.4, 0.2], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw1l3tcTPkbx6f7RbrNdOacU00RaUikNq0u5xHZZEvsICT3GFkqtV1QWZR7
xbhsWptimVDuhe5LIrk1S1JKUo1LhXTR7ffs7xx/9Xq/ppk55zzf5/N5z4gV
G+euVuXxeB4qPN5/f6fvXd/SJ+9gFkcsKZxYSIDFmVYvu6EvTG7VxRPxPxPg
YxhhES/pZA6IewLHehIQG63S9UTeyawdvu5OnDsBFxr3P7Aa6mScvMd1b3Em
oHYWnRkh+cpknuwZJXIgQO/a39F35V+ZJA/h3qV2BLiIHPyooa9MNOMZ6jaW
gODEIutgSRfTrZ419qo1Aakdswby5V2M1eMyk2IrAu4vrK7SH+pijEavSVsy
goDe0lVZyyTdjKtnisNuCwJsbD/FX5Z3M0Onf1vMiAjwP7x1gfpQN8Nbs+qv
LeYEJA7q2M2X9DB/l1857Iacu+aI+ll5D7Mv42Z9LHLz45Evewd7mA8vbond
8P3ElJxLsyS9DF39fGwEfv70TJddf8p7mQ7ewCkr/P4IvfLA9sFexkNcvcoT
r+90hOSHqZJvjN/wO1Ofjyag6lXDsEPyb8zku4Xmz2wIUPX6tbFp8Buz0tPv
rbstAZMu9eY5SfoYtZIdSfoTCVhBJyTtkvcxkY7V5h6OBKRsNw6qGexjyp+M
SXuGz7PkwwlXW0k/YxydYXnPjYD2eeP4sfJ+hjfhRgUxjQDLolzlo8F+ZuIh
g/J8LwL8bKYXj5AMMFfnr/fO88V5pTw+skk+wGy+LE/RnEdA9reAX+8MDjC3
6043n1pMQN1K5TShZJCR7XBIS15BwLDKCFoqH2RE7roGd6UEuDmpfro5OMjM
UMs97RlKwPq/DtzVkwwxQ6f2PdaJxnlpm54IlA8xDz1kOkbbcF6hZ8IvDg4x
9iVbFf67Cdjy8Y/RKmN5IIDkwlcpBJiMbDDMkvBgZkpqYHoqnp/51v1z43jw
PvuN5HgmPu//n0ceNNmbzqo8j+ep6PLTUwoe+JTP7HS4TsCmzp4CnyEetJ4r
0asswusVM/IusQr8QRosOnKPgMwlO2V/SVTgdmlr1v4qPG8HK+K84lTguY/l
84t1BDwtMwr+JFeBs6UHiwZaCFjXt2B+qkIFPmlQvmGfcV4TT0ydNqQC//hG
RegN4P2tarL9IFaFT2lz7e9rCcH+j7HkYYkq7JsgTJAbC+FeZYiae5wqePZ9
jj9rLoTlqrltzXJV6LQsmXzHRgi9TgMvkhTIK/vKBxyEkBw87Y7zkCpkpWct
9mOEYJO+++JrsRo0eyywuOUthCLFo+N7JGoQkN87y3W+EBboEIkOcWpA9r0b
8XS5EDrcAsJq5WrQVq9QxvwqhMSwjCU7FWrQcjWj0zFayO2vGtzKDD0+uEMI
11/aOT4XqwPYbmOeJQu5fVaHmlQr75tpQmiefktXHKcObbHZtvKzQm6/1UEy
InjZyatCMMn+6XWMQh3KvyUEnSwWcvuuDoFj1cvPPBDCdKEi94FYA3rey02u
VAu5/deAc/pfW0qahBAev+yAKE4D3IO16592CLk80IDDi/7MaOoXQqbyw6oQ
hQaMtO18/VWb5PJBA1ak3f5Fw4SEqrnRLqViTXCbZXfdaATJ5YUm7Jkkf0iN
J0E1X8NYEKcJYWZdUrMfSS4/NOEdZRBAepIwafTB1tUKTRjbK4zXm0NyeaIJ
Bvm+ed0BJCw/ICrKFWtBmn7/x+q1JJcvWrCqYKVRTjgJyd1Zh3XitIBne42K
jie5vNGC2Io+dad9JBQvm7x+sUILniYbVDcdJbn80QK/4J0ndmSS0HHvH48L
Ym0Q3PprnSCH5PJIG2Luus87dJOE/99urDYk/PBkK6+M5PJJG9bFTtdd/ISE
2Wm17X4KbWhd/dU6o5bk8kobikPSNf9tISFWQ1qWIdYBp8VzGz9/Jrn80oHg
JP/ebwMkZG/4mtYZqwMtx+1TPmhTXJ7pQI9869cyPgV1z7dtmqHQAbvOtsjd
IorLNx2odJ0S4iCmYNhUfe9jYl1wmq7letuB4vJOF9Ywr91d3ClwyUq1fBer
C0t9xzQe9aK4/NOF45/7ZS/mUhDMH9PtotCFLTunPBgKoLg81IUH2UtUdddQ
kLblSuV+8TAgXkbndodQXD4OA/vLNqHlMRTcf8ucqo8dBqf2x9zcvIPi8nIY
CNubrYwOUNDr+yDGXjEMHnW5Ttt1lOLycxgIag5daUinQJznP2e7WA/OL3Qx
obMoLk/1YKbz+eGOVyhYOOLtmH9j9WDgYtRPdvkUl696cOaja5j2HQoS94QO
Wiv0IHhrkkdpJcXlrR5YVXwKXfyMgrwvA4oo8XCoOFRcWPWK4vJ3OAwEjPow
toWC5oA95+7HDodF71VKl7VTXB4Ph8G8d3oR3RSYlBG/mymGw5fg4SfWDFFc
Pg+HrJ+tZzlr0TBjQqb/BrE+5sHGtmZ9mstrfUg6dzBoE0FDxLEJE4pj9SHa
8OiROnOay2992LxEsXr0aBpOq+CCKPRhT/frIm9bmstzfbh8PlHm40CDYp1X
7UqxAYSNzX4+fgrN5bsBeITP3vYeaFBVKC5fizWALwvX7E/4ieby3gDGtb3p
G/ShwdFt+W4thQE09B9+LJHQXP4bwMVtI/i7FtFgX9WVc15gCOtEbQ+PLaO5
PjCErSlCfmIQDeVabsfnMYYQaBv4ee56musHQ9DwFm7vD6Vhuev2hEGpISy4
Y16/PZLm+sIQMjaWWim30NATci/0jMwQVBPzQ21/p7n+MIRWW/qjTyINyacN
lvgV4ffXTizw2UdzfWII1Q379WxTaLCpmefVqzQEswfN2srDNNcvhmD9UefN
jlQaivTTHDIERrCl7OHDoRM01zdGELVDU21RJg0LpjWKZjFG0Llp/Y1DZ2iu
f4zgSNQRuwvnaGiPtNHtlBqBx/a3J//Oobk+MoJs7d/mxV+hIfE8LqjMCM5G
Gh6Ykktz/WQEaTnUoX9v0mDx+mqDZ5ER2ERuz55TSHN9ZQTOn/Ntc0pouG7S
V9GmNIJnZGZA222a6y8jCBwfmmRQToOP99TcowJj0HO4RPIraK7PjMF/la1v
byUNb2MTM4AxBpn8ZWLpY5rrN2MwM6i22FhFw1ZcT6XUGDRdZ4UN/UtzfWcM
Ya1L6zZV47xa+dEHZcbQ88ukkgc1NNd/xjA9vzhOtw7nZbZolUuRMUDVyy3j
62muD42h5gehyOk1zmtO+uwmpTFYN964P+oNzfUjfn929vveJhpe7myesl/A
h+sF4e+vNdNcX/Ihr9fAaWErDeE3ba2dGD407+x1blLSXH/yYc9kw5UL3uO8
2sOM6qV8+DBs96grH2iuT/mQf6K+rfsjDaesbvQnyvgQk17maN1Oc/3Kh8Gf
yXXuHTgv/6GWiUV8aHhdpjb1E831LR8aBZWRdp9xXvs8q14o+bBuj8hN6wvN
9S8feD8fq6hADi7ZW/i7QAAn3D8d39JJc30sAK8/ssbQX3Fe2LbjGAEsWsxT
nkJm+1kAo/55sci8i4b/xqGQCsDp9o2e7chsXwugcWuO+wvkSUsD47fKBHD+
0gy5eTfN9bcAHvwYdW0O8r1Dp4KtiwQQHpfaEIHM9rkAQj7NObsHeUX5u/mP
lAKIj9m2JxmZ7XcBNHVP0diF3Ns/0SNKYALpOTlHQpHZvjcBvbuWBT7IyfaR
40cwJuB341GXGTLb/yZwtbKtpB6vzyaogLwvNQGvAylpR5BZH8D3u/+p7oFc
nKqmvklmAudn34hsxPtn/QD5JbMpCtn/0cx20yITsBTahasjs75gAq33BN0J
+Dw71JJrbitNAO5oR/GQWX8wAXLRobBQfP6Jzs/u/Cog4OKjjOU1OC/WJwh4
8CKmyAVZ9KvZJYJBrzU4rXEE58v6Bf5uWf76vBLnf/3kirQi9GDLJGL8ZGTW
NwjYke4xEIvnxffZ2cS1Mnx9YfChkjaa8w8CeBcPrBrC89WsiwcQPbXf81CT
MzLrIwRArXPCBjyPscwPgTeVBCTf176VjueV9RMCiiNmfHn0DucVvnnmSoEQ
HMvq/+zH8836ihCWnVhiMwb5wtkSRz30SMs5isHZuA+svwjBjFTsjWyhwbNO
y/KaVAhRexY6n8D9YX1GCIb8wuDbb3FeRr7DAmVC6Aw6u/cd7hvrN0J40Nff
Z4gcPkPWpVmE7499KHLG/WR9RwhrZ/pKljXivDbXvM5RCqGnJv/bbtxn1n+Q
Zy3acK0B55VjWekvIGF62XydN7j/rA+R8PhbqRUf2bUpKE+FIWHHsXj+jFc0
50ckhJdOst2C+VFFXsjMkpKwKsGu6FotzfkSCY6/BJt+eYl56PPlwC8yEpw3
btrviMz6EwnaGyVLYzCPVH//Maa/kIS155Kqb7+gOZ8iQZKn6y5ATr0et/q0
koSLNUNP1mKesX5Fwr64tqrS5zQ4vL/j5yugwPDy3viRyKxvUdCTctlo1zPc
Lws91270IK/7ksIvmI+sf1GQrBV8czXycsncMelSCmDDW6dXCprzMQrWGqUt
X4Lcu+uY8UwZBdpSZvUbzFvWzyiwKfeShiAnF7wa+FRIQWvVuxR1ZNbXKEjv
VeGlP6VB/HmUMlWJn/9W/YkHMutvFFzt7hR9fILzsg5WTBPQ0FTgy/sLmfU5
GkKCviX6I/svvlT0wZ2Gtc6udyhk1u9o+KBz+p9G7IOOJDwwUryu66p7ryCz
vkdDtczPYh9ywm23I+4yGsj2M/HrkVn/o6H/t4nnJMiWvdu3tWBvNRQYHp2O
zPogXldWoLMrcu74++uT8Rz7dRjEuSCzfkiD9o538z2QZ68w9P9RYAo2gogz
fsisL5qCX2zLL0HILUfmT2t0N4UOT1OX7cisP5pCnu6WyWeQt1ak2e2V4uuD
3aKnyKxPmgIEdpSq4f0KeW8oRxn+/xtxhwsy65emEAIFG2KQLziKNeoK8fsP
aqkWIbO+aQpeL1LX6uDz9pRu7NipNIXijXYBC5FZ/8TX45JSspFf/XntpZ3A
DKojU/K0cX6sj5rBxITBzWuQw5/2lT13N4NWnV3b7iOzfmoG6Xq5Unt8Tnpa
HpfjpWaQl1v76Dgy66tmABWq3jp4vk7hcRHLzKCcX7s2Gpn1V/z/11dz3yO7
hjzc9bTQDCzjVuYvxfPK+qwZOP/t3K1AVpwShG9WmgHZ097ojeeb9Vu8nrD0
zmLk4BeLlo4SmMOy1vPHnXA/WN81h5Dwq1PPIavpn/SudDcHmy+/e4twn1j/
NQftKBVBEvIfHi0//CY1B/9/rLv6kVkfNoeGGy0ea3A/HbA+LGTmYFgzZkYl
MuvH5rD2itzTDve54twmvfJC/L6AofjdyKwvIytj7F8hr2i40R2iNIf0RtGe
cZgPrD+bQ/zNA7khyN8EOGCBCDqmD9Wfr/3u0yKoth1jVY+cPHPGw1J3EUwM
npCqWffdr0XQk5+5YCTy2Nh9N4KlIvCiV66xr/vu2/h545IfTkIuRZ0UyESQ
Xrpt7+i67/4tAp7PlcPayP4tZHJBoQjifa/V1dR+93F8v8Lc5zhyh+nSzUFK
ETxujyrzqv3u5yLIs/5xdCPeX6Lf6SADgQX4tZ9xC3r53dctIM/qWW0VPi+L
ne/n5LlbQHr0vnJxzXd/twDLHpeiIHzeeTfs3ZZLLWDZBvx9V/3d5y1g4jun
jGSc7+w2FFSZBTjbjWyOefbd7y1gl82Yphl4fv4HVjvVMQ==
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.17455716, 0.17455716}}],
   TagBox[
    GridBox[{{
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"out\\\"], \
\\\"2\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.4, 0.2]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.4, 0.2]], FontSize -> 8.96, Plain, 
                    StripOnInput -> False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], "]"}], 
               "}"}], ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"out\\\"], \
\\\"1\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 1, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 1, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "1", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"in\\\"], \
\\\"2\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"in\\\"], \
\\\"1\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.5754331225242257`*^9, 3.575433352015106*^9, 3.575433763780553*^9, 
   3.575433837246411*^9, 3.575433927289193*^9, 3.5754340451429205`*^9, 
   3.5754342888235273`*^9, 3.575434357634262*^9, 3.5754344117508106`*^9, {
   3.5754344762696905`*^9, 3.5754344957391577`*^9}, {3.5754345703691096`*^9, 
   3.575434596225304*^9}, 3.5754346713527017`*^9, 3.575434818612812*^9, 
   3.5754349761591487`*^9, 3.5754351158684855`*^9, 3.5754352075547385`*^9, 
   3.575435880277248*^9, 3.575436011159665*^9, 3.575436054393447*^9, {
   3.5754361519369583`*^9, 3.5754361592455125`*^9}, {3.575436462739781*^9, 
   3.5754364679034467`*^9}, {3.5754365856890807`*^9, 3.575436627799859*^9}, 
   3.5754367747146616`*^9, 3.575436841834874*^9, 3.575436922214985*^9, {
   3.5754369631116753`*^9, 3.575436969131075*^9}, {3.575437059089779*^9, 
   3.575437064275428*^9}, {3.5754371880694857`*^9, 3.575437192204195*^9}, {
   3.575437233658386*^9, 3.5754372686818075`*^9}, 3.575437964215782*^9, {
   3.575438021019738*^9, 3.575438025136434*^9}, 3.5754380702649174`*^9, 
   3.575438114277401*^9, {3.5754381504428487`*^9, 3.575438177689292*^9}, 
   3.5777157926889553`*^9, 3.5791553215662365`*^9, 3.579155421669039*^9, 
   3.579157164613662*^9, 3.5791572004167833`*^9, 3.580884852560281*^9, 
   3.5808849824427996`*^9, 3.5808850435606294`*^9, 3.580885087103696*^9, 
   3.580885215870214*^9, 3.580885353006238*^9, 3.580885388577149*^9, 
   3.5808854550607953`*^9, 3.580885486327846*^9, 3.5808859084605446`*^9, 
   3.5808859415612392`*^9, 3.5808860079648137`*^9, 3.580886078928477*^9, 
   3.580886230819738*^9, 3.5808863033107705`*^9, 3.5808863474193425`*^9, 
   3.5808863973291163`*^9, 3.5808864513665934`*^9, 3.5808864936775513`*^9, 
   3.5808865974216223`*^9, {3.5808889517056866`*^9, 3.580888995118633*^9}, {
   3.5808891886412473`*^9, 3.5808892272769055`*^9}, 3.5808893847561846`*^9, 
   3.5808894245138493`*^9, 3.5808895395090137`*^9, 3.5808896834471455`*^9, 
   3.58088997785126*^9, {3.580890247244937*^9, 3.5808902716218066`*^9}, 
   3.580890347033459*^9, 3.580890378706873*^9, 3.5808904304582977`*^9, 
   3.5808905039572377`*^9, 3.580890618569055*^9, 3.5808907581943183`*^9, {
   3.5808908114170647`*^9, 3.5808908327251806`*^9}, 3.580891063411132*^9, 
   3.5808910940966578`*^9, 3.580891165237483*^9, 3.5808912825357122`*^9, {
   3.5808913689792757`*^9, 3.580891396970372*^9}, 3.5808914433099427`*^9, 
   3.5808915044007483`*^9, 3.5808915389937825`*^9, 3.580891645526355*^9, 
   3.580892641107505*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "cvmit"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Failed to converge to the requested accuracy or precision \
within \[NoBreak]\\!\\(100\\)\[NoBreak] iterations. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", ButtonNote -> \
\\\"NonlinearModelFit::cvmit\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.575437264119715*^9, 3.5754372689170175`*^9}, 
   3.5754379644439864`*^9, {3.575438021258952*^9, 3.5754380253676405`*^9}, 
   3.575438070377019*^9, 3.575438114503604*^9, {3.5754381505439396`*^9, 
   3.5754381777883806`*^9}, 3.5777157906511264`*^9, 3.5791553217604113`*^9, 
   3.5791554210404778`*^9, 3.5791571639000225`*^9, 3.57915719977921*^9, 
   3.580884836633993*^9, 3.5808849798945165`*^9, 3.5808850429881163`*^9, 
   3.580885086520172*^9, 3.5808852153057075`*^9, 3.5808853524107037`*^9, 
   3.580885387993626*^9, 3.5808854544912834`*^9, 3.5808854857553296`*^9, 
   3.5808859078900332`*^9, 3.5808859410007367`*^9, 3.580886007388297*^9, 
   3.5808860783469553`*^9, 3.5808862302282076`*^9, 3.5808863027382574`*^9, 
   3.580886346843828*^9, 3.5808863974232025`*^9, 3.5808864507860727`*^9, 
   3.580886493088024*^9, 3.5808865968471065`*^9, {3.580888951127167*^9, 
   3.580888994555129*^9}, {3.5808891880777392`*^9, 3.5808892267103977`*^9}, 
   3.5808893841896744`*^9, 3.5808894239433403`*^9, 3.580889538945508*^9, 
   3.5808896828806343`*^9, 3.5808899772787437`*^9, {3.58089024668043*^9, 
   3.580890271063306*^9}, 3.580890346483965*^9, 3.5808903781423645`*^9, 
   3.580890429888791*^9, 3.5808905033807178`*^9, 3.5808906178904486`*^9, 
   3.5808907575257187`*^9, {3.5808908107564726`*^9, 3.580890832043568*^9}, 
   3.58089101456631*^9, 3.5808910931778374`*^9, 3.580891164576891*^9, 
   3.5808912826728334`*^9, {3.580891368354701*^9, 3.5808913970844736`*^9}, 
   3.580891443438058*^9, 3.580891504541875*^9, 3.5808915391419163`*^9, 
   3.5808916456374545`*^9, 3.580892641220609*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "cvmit"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Failed to converge to the requested accuracy or precision \
within \[NoBreak]\\!\\(100\\)\[NoBreak] iterations. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", ButtonNote -> \
\\\"NonlinearModelFit::cvmit\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.575437264119715*^9, 3.5754372689170175`*^9}, 
   3.5754379644439864`*^9, {3.575438021258952*^9, 3.5754380253676405`*^9}, 
   3.575438070377019*^9, 3.575438114503604*^9, {3.5754381505439396`*^9, 
   3.5754381777883806`*^9}, 3.5777157906511264`*^9, 3.5791553217604113`*^9, 
   3.5791554210404778`*^9, 3.5791571639000225`*^9, 3.57915719977921*^9, 
   3.580884836633993*^9, 3.5808849798945165`*^9, 3.5808850429881163`*^9, 
   3.580885086520172*^9, 3.5808852153057075`*^9, 3.5808853524107037`*^9, 
   3.580885387993626*^9, 3.5808854544912834`*^9, 3.5808854857553296`*^9, 
   3.5808859078900332`*^9, 3.5808859410007367`*^9, 3.580886007388297*^9, 
   3.5808860783469553`*^9, 3.5808862302282076`*^9, 3.5808863027382574`*^9, 
   3.580886346843828*^9, 3.5808863974232025`*^9, 3.5808864507860727`*^9, 
   3.580886493088024*^9, 3.5808865968471065`*^9, {3.580888951127167*^9, 
   3.580888994555129*^9}, {3.5808891880777392`*^9, 3.5808892267103977`*^9}, 
   3.5808893841896744`*^9, 3.5808894239433403`*^9, 3.580889538945508*^9, 
   3.5808896828806343`*^9, 3.5808899772787437`*^9, {3.58089024668043*^9, 
   3.580890271063306*^9}, 3.580890346483965*^9, 3.5808903781423645`*^9, 
   3.580890429888791*^9, 3.5808905033807178`*^9, 3.5808906178904486`*^9, 
   3.5808907575257187`*^9, {3.5808908107564726`*^9, 3.580890832043568*^9}, 
   3.58089101456631*^9, 3.5808910931778374`*^9, 3.580891164576891*^9, 
   3.5808912826728334`*^9, {3.580891368354701*^9, 3.5808913970844736`*^9}, 
   3.580891443438058*^9, 3.580891504541875*^9, 3.5808915391419163`*^9, 
   3.5808916456374545`*^9, 3.580892641403771*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfuS2QXrz8z+Yg/h37L3Plkk5GXP
4CC//IWH3v/H9n1sH8Q8NrA6QORf2b/8HOgWo8Dt4NKd8/z3yg/2MjWJRqEG
AlD1n+19JM6e+rZQyOHnoZRVCSHf7e+tOfh71R0RqP5f9vN4+iaFTxdzWPcr
Jvfov7/2T+fccP59QxxqHoOD+YPPhzk2SjgYztSSmBrC5HDxXKZYxnZJqPnM
DtHnBfoixaQceLYuqzy+ktWBwerMdPEHUlD72B36ex32rMuXdnh2Qen2z38c
Dk8y+tb8aZKG2s/lYDJ3Lk+fkozDwTfzbHRCeBxecTxI+6gkC3UPr8Mz+yX3
992TdZjFIT0vbiW/g8PviUpGPXJQ9wk45PlPuPHOT97BetLpeo96QQeX+3dP
CbkqQN0r5HDggrLb+akKDhoLOjc81BR2qP5hFNhyRAHqfmGHHRPcC5RtFR1E
17k/rLoi4uBWFbg7vlYR6h9RB8f6he491xQdmPawConUizm8EHmSrqyvBPWf
uIO+5HGPbxVKDh9OHnZaqynh0Oi8ImjzciWofyUc7I+7dxuzKTvcvd5Y7HZF
0oEx4GhvtIky1P9SDhY+Jh4HtZUdTj0FerRO2sGoNLzsYIcyNDxkHITueNxU
mqjssOPz3ysVmrIO+W5nw09uV4aGj6zDIX8Zh/3rlR2WMgIdeEXOQePKZfcH
35Wh4SXvsL/+86MjQP5oehtNb/RMbwCZNDAY
        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt13lYTHv8B/D2nWr2febMSYw15dpK563SRSSMdFF2brKkxXpNEWW7xJ0S
N66dSZElyqWSJYq4NbasJWWIopS0/eb3+33/muc855lnnjOf7+f9fh1q3oop
C81MTEx8TE1M/vfTb8fSunZdI3PXb+jm084syE99GDuwu4k5uSbA4aE/GxOd
YuXx6mZGcS78LmshG5q1pi3/6ZqZ+m+zDw9PYCOr+s/7dHcz867oSCaOsPEy
QHQsVv2d+eOY1rJfARsOOSfXFuu+M66K5JutL9nwlHkECbu/M+9LX3Wd/MlG
RFKBa4S6hbnrk/dwuICDA40Bndd0LUxx36DArF84KPntWUXP7hamdkjRXoup
HLQVLciYo25ltsmoHO9IDvr0/xp/QdfK7L4Q+WDmnxyEpGyYbtHdyuwrOdk0
M4ODpC7bgcHqH4w66AzDFHNwZXGqxWndD6bYO+SeZQ0HtY+UL9q6fjDnj609
fc6EC97Ic+cD1G3M+8MPmr2kXPgd89x6UNfGPFtmcSdrBBexDnfDGrramJqQ
Qg+zYC5OxKp/Ga3+yXy6mzJtZBQXFa/f2v+l+8nove19g3dxYTZ2WXVN10+G
PX0/OziDC/fzbblD1e1MaGnG6xF3uJgnSty9VdfO9I1J/9e0mos9CaxFlV3t
zKLx129kdXJxo/6QV391B0OHB9p4C3lomNaPrdF1MBscE05eGMKDouCK4WFX
B8M6Gn/RPoiHoD5+hZS6kxFnhfmPi+BBs+dRarSuk/n23nVVRCIPZ3/OWna7
q5PxGfD4t6gjPLyab/Dlq7uYzOTpNmHXeLB/ECsK13UxpRN2pQ18ysOooWZf
r3Z1MWMeBlA1X3lY+s+uYgd1N7M5V52nceDjgI34UJiumzF9PXt1lysfJStP
xWR3dTODJvCi5o/m44/P+3uZ9jVB2lh2YdZMPrjKt04ZahOYq2tWv4rlIyvY
tWNKnAk29rfN/rabj/8/jybIftik+azj42XBhfLjehN0/GHT/uAmH9HNP65P
7Dbev3JwpPYVH/YqRteiMsW2cR1T0crHsdAt2n/UptjhNzu03EkAz72lcWPj
TPHMsnnp+L4ClN9xjviqM0XWsMq0074CLGmfHnxAbwoLPd1aP0sAM7dDo327
TVHp+vggf5UABxbU9K9XmSHlUc3RPrsFGLy/ryBFbYacu54SxWkB7j2INPeO
M0P/OTnyrkIB5ppd+VKrM8NXX/nNoucCtA3tfL5bb4b0uBGS5d8ESI7wvT28
2wyP4y7DxF6IPoe3ZVepzDGY6+m/lhaiQP/w7+1qc2SuCvN57inEdFtekkec
OaL8MsYr1EI0jpoV9VJnjkXbD8QELhUiKepo6Ba9OTg3Dz6ev1lI9tccIZWc
hDnpQlx+MXDIU5UFBrhN3et3SUj22QKr/j4kcLovRK3fv3aqOAu0Lh3U7+Y7
IdlvC3xZ6fYmtF0I7tlfq9bpLeDXmj/uLUtE9t0C6vsf48b3FcGPr79yX2WJ
2jGXU9NHi8j+W0I+mnfsSYgIMfFzdsniLBHn+i3vxwoRyQNLWH+mG82SRDhm
qF8QqbeEu3TNjO8HRSQfLPGlIqvHo0siVExZ61mkskLH7VWyv0pFJC+scNFn
9RHvahHMrlmyOHFWiB/mf6b8h4jkhxWa3ZcFTXIUw73X3g8L9VZ4vvj3E5d6
iUmeWOFY9sl8My8x5u6SFVxRWUOzd1v2iCliki/WKMDC3b/9LkZya0aKbZw1
FIfjV8zTiEneWMNqPHehWitG4ZxhS2fqrWGWPGnzoAwxyR9rNGgCq5oKxGi8
d9MnS2WDk9V08pHHYpJHNhg2Tn98+Ccx/u9xNTaYazXdI89EQvLJBn2HpU6i
eRJMSn/ZEKS3gfT28h6r+0lIXtnAeUl2/CVIoLEMv3NUZYtdF6XXX0yTkPyy
xUKrpU/ql0hwdvn39GaNLQKO+r6ti5OQPLNF0Anmy32tBK+eboz219viuuMX
drpOQvLNFknFDxdMy5fAfnTP8WkqO9imhzT/KJeQvLPDg3ENjxPrJPDMOKD4
qLGDueazpLtdQvLPDnsr/3k510mKCHbvVk+9Hfa0jelzzkVK8tAOWMli1w2X
Iv2Piw/+VNnj36d9s20nSkk+2iPzzikWf64UJe+Z42809lj+RjvRMVZK8tIe
2WWN0d+2StEWeH/dYL09FgRlpRWmS0l+2iPH41zZ2mwpVLkhkxNUDrgWVtZH
dktK8tQB18sf52U9leI36n3vxxoHNJxL0Pb5JCX56oBVI7aV7uqSImn7yi5X
vQOin29f+dZZRvLWAU0uiv3SXjLkNnXq16h6gPW2Qu0/XEbytwdaTF2uzAiQ
oXbW9jMlmh74kruxfEaYjORxD6xbPjnPf6UM3Du8TRJ9D0SWftwg2ywj+dwD
fa+luVenyuA/6FjIclVP7I3Zb9ijk5G87ol5MbKcAddkiE0bNKhQ0xOBOyac
yimTkfzuiV6vPMtVVTKcMDUuiL4nXGpbf93eJCN5bryOixM9tZRDv2Tsy/kq
R7yqujXTSSAn+e4It6ws6dC+cpjp9RdyNI6Yb2BFjfWSk7x3xBaHG0t+DZRj
yKi526z1jjjdtVroMUdO8t8RE2SfdttHyTG4ouVcJscJV/1uvHmUICd94ASf
Eq0oIUWOu9aj/p7GOKF8e9Nk5Sk56QcnuH0M23c2V465XgmJXeFO2PYsoKN3
iZz0hRNuPVHu3fVCjh+R91ae0jrBrJ1ZUl0vJ/3hBNH3byl0lxzJJxxDgwqc
kLSNYeusFaRPnFB89E/eMCcF+lROG9tmcAJYa1/9K1CQfnHC5bbkyGGUAgU9
0z2OcpwhnBr2TKdSkL5xRsG3+VK2uwLTfatlAYwzsrfJxkaPVJD+cUbjKYu5
JT4KNKzuY9cc7oyS/MRIQYCC9JEzetOOcaFTFUjKNC6o1hkvHM1S9s9UkH5y
xrdT16/en6+AvOrS2zEFzujRtv9HS4SC9JUzMjs/BAtiFLjMbS/9YnDGvn9a
Xrn9oSD95Qz6qk0qNiswcfzoK/s4LJyUzE76daeC9BkLuTs9ro7RKvBek3QU
DAun7uYN9UxXkH5j4dE2uWWf4wpsMK6nIZyFjsSdAxwyFaTvWChdpcytu6gA
9wN77V4tCyJWZ+bVfxWk/1iYxXPnbLmpQJZkxgLPAhb4Y//77l+qIH3Iglds
zW8mFQr4TT48qcbAwqHVK8aer1SQfmQhZFjkvd+qFXixpXbknxw2mKzXNW0G
BelLNgLfZx7d81WBmKv9XYcybChMi+2oNgXpTzZCRrJ7nTahYN8Q5fwmnA36
/co2VxuK9Ckb+6Ou7z7oSOE4ndeRpGVjfHRJgz2fIv1qdO3+xVSUjIJnSHed
m9GxaddC+z/qRZG+ZePG8xUC1wEUyneOqXhuYGOwYObn6CEU6V82ykueXMjz
pBBxY0f+Jg4Hr6O0ka0+FOljDpYXMQMHjKdgZmzbfgwH3w5pmmZMpkg/c3CR
/locH0Lhf8ehD+dg4fHBFw/Npkhfc3DonP7apUUU3GeHxW/QcrDYOby+aBlF
+puDm49Xj7sXQ+HeX8cjXAs46Bew+UXxeor0OQfulg4Z+ZsozLv7MfihgYP2
14nXsrZRpN85KO9cJEpJptDW4eazhsNFboWgNGYfRfqeiw+U+ZMJhygkD149
gGK4WNee6CM9QZH+N94v7ubXnqHQZ9F1QUk4FyfH3Aw9dYEiHuAieyclnptH
ofCAuUW0lgvaeeF0diFFfMDFkxPlwvw7FEIejmsQF3DxWaMLn/uAIl7gInII
HdhZYZyXeXLlLQMXn25Fl+2ppIgfuGjZd++rrMo4r+FPbi/j8GCIn1hwvI4i
nuAh/IbSm/5CQbZMcp7H8GDlsDj2QDNFfGF0caL7Urt247yOzEsvCOdhYNk+
VbSpkniDB9vWY5f01koEPjmd9LuWh9o9YZxBPZXEHzz4Z92btImjRK2d8QAW
8DDrWdWyMpGSeISHo70OxbIpJTTML2FXDTxoBzQum9xbSXzCg5fzrdCtA5Tg
xqwfN5/DR/0fJhNyPZTEK3xUZiQyVSOUyDp9Y4gDw0fRQnfGHEriFz7+sa+c
LPNXYswra0VOOB/+yYEa9wlK4hk+WPEzS5kpSrx0DrQP0/KRalbM+IcoiW/4
GP5qcvWYMCVi/LUtVgV8NMdeyfNeoCTe4aPxcdZ9tyVKOKyvrDpn4MMr8z0l
iVQS//CxOsiu0GSVEsfOKR6EcARYe/tG1uv1SuIhAdjXMr/mbFTCq2ZRrikj
gC5l0d7EJCXxkQBNi7akBv2pRIUg61hGuACZP/dbcP5SEi8JMEw/6N2jNCWW
TGzaNVUrwBz3B8OTDimJnwSwYTXZDztunNemEes68gWodJPOf6tTEk8J0OFY
5Jdwzjivy3ELTxiMjm+ZckWeoyS+EkDz3fNGzlUlPD7dDgrkCPGj7t3vYwqV
xFtCLFiTeansthL35A5erd5CtFHfMiaXKom/hMj0cJhS9sg4L/WU3ofDhTCU
T8j2e6IkHhNiQpfJ/UsvjPPamsYapxUiODnyjKxKSXwmRD+f1+pNtcZ5XX/d
+TVfiNFnk8refFISrxnfG6aekA37qoTqm4vhgEGIkalLAra2KInfhJh6x3Jm
RbtxXq4Rel+OCGmyw1MFpjTxnAj0vVDP6VY0QmaeL6j3FqG0KlSQbE8T34nw
ZM3VxiInGo27jQcmXITClK0lDVyaeE+ETyOeneGJaSTeGpXqrRVh3vxLB4Yp
aOI/4+850gen9KKhaEvYWJcvAuXdK29xX5p4UITYpsvNqwbRuDKgZGmyQYTj
ng+nxQ+hiQ9FkA2YU50wgsakeU4hIzhiLPsUfHijN028KEaT7u+Utb406lKD
fau9xcg463w3YixN/ChGjXrfqJCJNDaUpg/cES6GlZNVh/cUmnhSjHHL3W0V
02nwTd4JhxgdrxHXL2mfSRNfinH3Xafrf3NoZA1RWb7KFyPs8gDfIwtp4k3j
90973Y5YQmNM+IrGLQYxXFtrL7itoIk/xfhoX+PcGE3j9cGcFwM5EqRtqK3T
raGJRyVw4KSPDNtAI6a8/c5TbwkulGQ59thEE59KEFRRsPRyIg0Ha58L8eES
FKWtnD5jB028KkHujdDHP3bTxv9t60GV0fHrPET1e7Q08asEpzjDj/TaT8Mr
smxrudHxHQ99f148SBPPSmDHv93hdZSG/jgnZr1BApP33mcLT9LEtxIs3jiI
w5wxzuv5jNkuHCmqNzkNyT1HE+9K0fJfMLv/JRrmPY+Mf+AtRdGZqCsHcmni
XyluHX/Yy+I6jf0+db+sCjc6/4x+/u83aOJhKW7a16wqvk3Dw1gfcq0U0yNn
LqBKaOJjKZ7X/jV4VRmN0jPRDnfzpaitqnp3u5wmXpaiyzMl3umpcV5v81oj
DVL4jWxzCH5BEz9LMXy3elfqGxo/OcYBc2RICDXYlr+jiadlODPy+2abDzSS
x/mXFXnLoB983mJkPU18LcOOO5N3LWqk0VezMy8iXIboVqveu5pp4m0Z2KM7
KrJ/0CgycpKjlUF7OORAWQdN/C1DVKp3XJ2JC0LqBMnX82WYpLqf1G7hQjwu
w+EPojw7Wxc0imevX2QwOr6BEXB7uBCfyzC0LiBD5OyCpKATixw5cgTbBcSI
uS7E63Koeo9Zzxe6QL7l0+RcbzkSjo661VPqQvwux851HmpTygW5eYNHzQ2X
I2Yc5dbg4kI8L0e/sZ2znvVxwaQvRqBqjdeT895c6+9CfC+H8p3P9XQ3F/wP
6l+Z/A==
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfskncv6gu/f2EP4t+ynNjJH7XL6
aS+//IWH3v/H9tI+hz8ITmR0gMi/si83SJrP0MXm4NKd8/z3yg/2IltOPpy8
jtsBov6z/S+tnzdiEwQcfh5KWZUQ8t0+5ZzxN9XTQlD9v+wX/JyzO/a8iMO6
XzG5R//9td80p+WSuJMY1DwGh5TiqzbuIeIOhjO1JKaGMDns1276v1ZEAmo+
s8ONz6anUw9LOPBsXVZ5fCWrQ/jk5WuWcUtC7WN3OG+oUL13tqTDswtKt3/+
43BYqt8y57u/FNR+LgdZhsLw9ULSDgffzLPRCeFxSP5g8Hb2bmmoe3gdvjbv
8lhYI+Mwi0N6XtxKfgeVq+V1gUGyUPcJOGzbaWibqCnnYD3pdL1HvaADy4Rb
R06+lYO6V8jh7rl9nxT2yjtoLOjc8FBT2EGgIoHhYbAC1P3CDlPfS3Ze2KDg
ILrO/WHVFRGHZxvTUiZwK0L9I+rgqPH+cUaYogPTHlYhkXoxh8OfgzYaTleE
+k/cYbHD/BOT7yg6fDh52GmtpoSDwLoGJ1tZJah/JRx+FJq4h4UpOdy93ljs
dkXSIVEmxurZFCWo/6UcLGsudbK8VnI49dR+yf06aQfDWVPfOv9TgoaHjMOT
XZpPt1opO+z4/PdKhaasA8Mx44wX6crQ8JF1uPzzg45jn7LDUkagA68A/V27
XtFimjI0vOQd6hfc2fb+oLLDaHobTW/0TG8A1941UA==
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt1nlUzOvjB/CaCi2q2fft8yGGhMoaPu823Gy5d1qUsruSrlDXtzC5SK6t
MFkqWSqUUpYsSVlCsjNEstxuSZer0CJt3/n+fs9fc55z5sw5c97P836/1POX
/7yIZWJi4mFqYvK/T69ty+o7spsYnuDfPj932EF5/MNkp55vTOmsxM0TvdiY
Zh+tXK9tZgYMHNaEhWzoYkxbH2c3M1OzQ5ulm9jIq9lxj+5pZp5nO+VVZrBR
PUWSEa1tYR7fz3CNusGGTeGxmNvZLUy3/nTmlxo23BQuvuKeFmZ2qJvQl8VB
eEKpQ7i2lXFYxjuWqOYgpWlKV3F2K3O3vmdpATiomPXiqW1PK3OjriDuzBwO
2q8vzJmrbWMOhlV0Jes4GOj4Zf2Z7Dam19K33UEHOQhMXhdg3tPGVBhWppkW
c5DQbenkr/3OPNjd1vhnFQcXft1rfiL7O+O4/RGn+TsH7x9Rr9q7vzOeub4K
CLkQjM0/PUXbzli9Lxr82wguvDLcthzMbme+jvLQ6n7hItqmPLSxu50ZVGB5
OnIFF1nR2hHu2h/Ms8h+wd6JXDx98856T/YPxv1ccnhnLhesyRE1td0/GNVj
347kCi6cT7dfHKntYO5PGENzPnAxX7I5cUt2B3PkANUZacHDro2cxVXdHQzv
+KP0MxQP1z6lj3PUdjLaoDa6kuGh0W8wV5fdycS9GJv5ZjYPqtILDQ+7O5nm
tUNH34nhwXeg11W1tot5+XrW9717edDterR3VXYXM/+RU9ekszyc+jE74mZ3
FxMRwZ1T/ZCH1wsaPIXabqaOHzJS+4kH6/vRkrDsbmbA6pmp+X34GD+S9aWo
u5u5luhw7HM/PpYd2nnbRtvDZJxlLWe785HSR5oemt3DWO/q7CsK4aNixfGo
gu4exuAqTWXF8LH23wP9TQeZwMHO3+mxng8+9c4+R2sC6rv+7cYCPvL8HTp/
jjPBdNeCW5J7fPz/fTTBjpjIjuR6PqpLzzzJNBjP33Ymt7AEWNX8/cq0HuN5
cmHuGIUA1homu1VjipHp6wLnjxEgIyRef0hrClb6yoLlWgHcdt+Nmxxnirmx
dvfmLRfgyS12+JdsU+Bb6fXRWwVY2hHgn2IwRUvQu5PNmQKwhqW7e/aYojXl
SnpyqQApC2sdP2lYKBmdfEZaJcDwA4NEyVoWsoOSuzc3C3DnfqTZhDgW7t2r
PlBpK8Q81oXP77NZeGuxJrWvRoj2kV0vEw0sODtGSjSeQiSFe94c3cPCYkne
kEEhQgw8/GfBXxoznFnI/WS/WohSw8PUrVoz7A+JXvY6SYgAS0GCS5wZOiR7
bybmCNE0fvbK6mwz9FujsR1YJkTCyqMh8QYz5GsMs4+9FpL3a4bCzMHlVm1C
nH/l5FqpMUeF+/nFfvYi8p7N0eX8cfpmjQjvvS5baeLMQW133nfQQ0TetzlO
TKrzSw0WgX9q0l+xBnO0TJl2JC5KRN67OZZHZiX67BDBS2i4cE9jgWMbxKM6
s0Tk/Vtgx5RbefoSEaLWz92piLPABv0lS16liPSBBW45fp0b2yhCRsOnhZEG
C+g+z7lzu7eY9IMF+pT9HdipFOPpzzFu1zW94JY3o79otJj0RS8cKlvsJfUV
g1VsweHF9cIjr9d3LZaISX/0wukdgY8r48Rw7r/7wyJDL9zSLF+6a5+Y9Ekv
pD49keucL8a8nYrSC5resFijy7t8S0z6pTeifYI2OL4RI6ktJ9kyrjd25+5D
fIuY9E1v+M7c2HXTRoKrc0ctCzb0RrpL8IPPtIT0T28kpU8v7xkrQdOdGx55
mj7guOhM2mdKSB/1gcO/Hduqlkjwf39X1werNXfjMuMkpJ/64FHOuyb/vRLM
SKtu9DX0QfQhqvlLroT0VR80H1uSHn1DAp1F2K2jGkv4Va4xr3kpIf1lierr
ArdRTRKc+q0lrVlnidXr6vyje0lJn1li6tH4ZWkyKV5X/rFqosESi2ZtTsp1
lpJ+s4RTyJLKrMlSWLvb+uzXWIFvku63JVRK+s4Ko523KbVRUrjlpKj+0Vnh
xub4nyy3Skn/WaF1jKH++CEpwrkD2twMVlg7ssB2WKGU9KEVhkm9nhypkCJt
7dn7OzTWeIvciV1vpaQfrXG6tDXOo0WKijom863OGq7R9O4VVjLSl9aosOy3
a6tShvbp92KHG6yR2PoqaYerjPSnNUy3qbJif5JBczFw5kaNDVK/XvxrZqiM
9KkNPowNDeKukmGWum7AM50NfgRepkoTZKRfbRA0NGK6X5oMCVtXdDsYbFC0
h/XlWYGM9K0NyrSdcvebMlz81mX4j6Yv2pj7H/a+lJH+7YvoAVULK/+V4f3s
rScrdH1RVh+TxWLJSR/3RWlEyxWRQA7+LcEGmaEvvIoTrokHyUk/98XUryE3
LCbIMXFoRuBvGlvs8d33vHqmnPS18cx42x5aJEf0/qFDr+psEeEXvm5qjJz0
ty1OBveMrNsuR5ap8YEYbOHv1zAt7LCc9LktCjeZPXtxVg7D0snVCzR2CF4h
eetyW0763Q52nz/pYqvkYBkMZwp1dtitcLyd+6+c9L0d3qxbU1FhooDr+Hl/
9jYYz39Hphq4CtL/dojbpp9a4aDA8Ket+bk8e+SI5jWdHKMge2AP53TPAzFT
FSjvPT7Vj7FHVUbqLJc5CrIP9ljkeNnz5QoF5o3buLk7zB5rL78PC9+kIHth
j/JgvzcNexX4HnlnxXG9PV5kDjurzVaQ/bDH/Gv6HycvK5CUZRfiW2oPWXTS
rcb7CrIn9nhA9deo3ikwsMpvcnuDPXRPJrqO/6og+2IP7ajq9onmSpTaprkc
5bHxoLBk23iBkuwNGxVhRR2qgUoEeNYopjBs7HLcGfxljJLsDxvmqR+LT01R
onH1QKvmMDa2S1cPnxWiJHvERmjt7Yqm35RIyDU+UD0bW02XpESvV5J9YkMU
bDhdv0sJ5V/n3nmXssG/vJaalKEke8VG+dMbXXvOKXGe33H3cwMbL7x7tA9u
Ksl+sTH32Ooxrc+VmObjfmEfjwMqfkmx9Qcl2TMOslaaNNq2K1GnSzgKhgOH
jcO+9JiryL5xMGvlw1+W91VhnfF5NoRx8LTm3fFnfBXZO44x95oWZ4UK/A/c
mN16DhpjfCYmOKjI/nHg32/rkSdOKuTJgha6lXJQEmJtzx+lInvIwf53w1Om
Myp4zTw8o7aBg/VmwZPjJqnIPnKwqPg1dXyGCq/i34/dweNie4aV860AFdlL
LipaB+uq56gQVeToMJLhYmdavN0/v6rIfnLR4eD3+fNyFawbV7LfhnHBrXxM
fVytInvKRekhx8I3cSpk0pc6E/RcWGiS8u4kqMi+csF7quLlJqrgFthTP6yU
i8hLnU3x+1Rkb7noc95tasAhFZ5s9376soGLgIWNQ1THVWR/udjaj05/d0qF
8GvbSjbweDioqM7cf15F9piHOG+xz+QSFVjGtR1sdN2woKfJjTdVZJ95qP3c
mbjzvgr/i8MQxsOApRvQ/5mK7DUP3ZY++WerVXCeE7p+nZ4Hu3qX2jG1KrLf
PFxtE9df+GjMa09muEMpDwHcR6VDvqnInvPg1EL/nvpDhfnl//g/bOChjHnN
NmWpyb4bnRl3JSXUUo32zmEe/+HxjfdqveicvZrsPR+1RVW7TUVqJA1fPUTN
8DElbi17klJN9p+PR09s0zY5qDFw8RVRRRgflMWIsUVD1MQDfPRfsP1bvasa
V1PMzFcZXSgZm/uw7zg18YHRkVX9nw/2VCPw4U+N0lKjE9M22Xr4qIkX+LD5
a9p635lqNJklVZU18DFcYOoSEKgmfuBjU5HQyX+OGgmjn9+M4AlwdY5FzLTF
auIJAdinRknHR6ihiJCdFjACTPxVIOsfpSa+EKApzGyjxRo1zh+Zn1YaJsD2
c0EBb/5QE28IULhk5eH8LWpMf34iYYleAO8HKYtiEtXEHwLE+StOue1V472V
8QIaHTnhkPsfrWlq4hEBbH/3fJ+doYaOGRFa1CBAxKvZtX45auITAWosrm34
UaAGP2rNTwt4QgxbdLB83wU18YoQsVniK0NKjHmduOZqwwix4kzAr8VlauIX
IaKLVj3wvKuG9+veqsIwIR4N39R+47GaeEaIimcHGse9MObFnm4dqheiLr/0
wqk3auIbIb6LOgLFdca8Jupbe5UKsaB4StXaj2riHSFcU096vPxizGtN1V/5
DUL42tkdcPquJv4R4siDhbVru4155avuB/JEcPmcPLjMnCIeEiGyLj7a3JrC
uNrFF00ZEUbv4twZz6aIj0TgjeINiRRSeCrKy8gJEyF0S8iJVDlFvCTC/KzL
7ldpCkunfdv5i16EnarWntcaivhJhDTThw3NQymwNoyJ7TQ69Hw5q5fFSIp4
SoTDKyYH246jkHI+blFWg9Gtv89ssvegiK9EeGm4c9dmMgWXjzd9p/PE4PcN
bDadThFviTFFczCy6RcKd5Q249omiKEvcZ30YhZF/CXG1qZzuktzKMzT/jzg
cJgYf0SdkusXUcRjxu/rcwctCafQvmU/5ye9GO+dR+SOWEERn4lx4V75ic7f
KSRdedP1pUSMLetqHK6spYjXxPBlfXdcvYGC5mu/hpQGMZKLY64N2kIRvxl/
v/DJP5U7KFx1CDd48iRYfGRJvm4PRTwnwcCaVL7yAIXA4NOlnyYY3bjtNn0p
nSK+k6Bkgfu7qZnGvBKNFyZMAv7HWTOrsiniPQmOBs1eNy+fwuay8Xsn6CVI
y965tOYcRfwnAS9puDKkiIKqfeMf9SUSsLeuP/K4lCIelOBM1ek25qYxryEV
y5IajG5ObB1wooIiPpTg/IbY0VaPjHnNtw8cw5PCbO7CoYufUcSLUvCOPeMU
V1Go3+vvWTNBipicfz5Yv6OIH6U4nFZ0wa+Owrq7aU7bwqT4uiUg/sA/FPGk
FN+CHwRUNlIQmvwtdtVLsaDOYYRdC0V8KYX/qwW0+w8Kea4ai9clxvPrDQMj
eijiTSnWrF7rs8echnfY8qb4BimS+nslnrWkiT+l6Odf3nnflsabg4WvnHgy
FER83V/DpYlHZci9cyzsi4hG1JOOW5UTZDh2oyzqh5wmPpXh13MOV7soGja9
Pc6sD5PBrO3IzI4BNPGqDG0few395kgj03hdNHoZxneqQuuG08SvMixNO1/7
eCSNcZEPtjwpkaFkxp/lF91o4lkZPE762aWAhiGTF7WmQYaqwKcl0d408a0M
oZLC6ik+NMJfBs3px5Mj596J32QzaOJdOc4vDYit/4WGme0Rn/tGp560X2SR
F0gT/8rR2h3JjwihccCjfsTvYXIEHeQXDJhPEw/L0b3uQ1X1YhouxvlQ6uXY
Mjc2dXs4TXwsR78RAW0jI2ncPbnKprxEjiPKXs2vomjiZTlWxFruWxNDY/67
S22RDXKUvXxTx9fRxM9y6G176nI20PjBMwbMU+Ck5k3a2ASaeFqBG7qPdje3
0Uj6aeKD6xMUWH18l5dPEk18rcCyzSNRoacxSLf9UniYAt4+bn28D9DE2wqU
RHYeKTpI47qRkzy9AifuPOYMPkoTfyvQGWM7d+8xGoH1oqQrJQrUdpskdubQ
xOMKXBz2LTMkn0aTdM6axQ0KcCYOOn7pLE18rsC95+9T7C8a8/LNWmzHU8Li
7cL4+cU08boSLtdfhedfpaGM/zjz4gQl7Kfrfmkro4nflTh3JdZ97B1jXpeG
j58XpsSO4h9j/3OfJp5XIjiM9j79mMaMz0ag6pXwmMVfVPeMJr5X4nLKp0O8
Khr/BV1RqUU=
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfunDbG+84p+20P4t+zL20WYVaq4
HeSXv/DQ+//Y/lTOBE83OREHiPwr+8sHf9m3n5R0cOnOef575Qf7JV2PQq99
k4Oq/2xv+VbTUr1P0eHnoZRVCSHf7c9GmMyd+0cJqv+XPVdbMa/xFWWHdb9i
co/++2t//+4pobmqKlDzGBxck9++z3FXcTCcqSUxNYTJgev64gJbJRWo+cwO
akePq6d8V3bg2bqs8vhKVofbAYbn7u9RhtrH7rDAODO41F3Z4dkFpds//3E4
BGbpL3r7A2Y/l8ONz6anUw8rORx8M89GJ4THwfS9hat7kRLUPbwOlZtmS/71
UHKYxSE9L24lv8Pz3smH9rgrQd0n4HBV9bHESTclB+tJp+s96gUdSraK/j4d
pgR1r5AD8wyjAodkJQeNBZ0bHmoKOxxh41bP3KYEdb+ww1/voJlJ35QcRNe5
P6y6IuKQ35Q/y84b5h9RB/vupR77Vik7MO1hFRKpF3N4L/Vl6fbvMP+JO7x/
cjk52k/F4cPJw05rNSUcBE0vPl88RwXqXwkHvq+7N5jeVnG4e72x2O2KpINU
5so9sp6qUP9LOUQ8dXoaP1vV4dRT+yX366QdVvQfkK/bpwoNDxmHs8/vvK16
qeqw4/PfKxWasg7PIj2193GqQcNH1qHP7hkzk66aw1JGoAOvyDmELtVd99FR
DRpe8g6vJ8x+yOaj5jCa3kbTGz3TGwB59zRs
        "], {{
          RGBColor[0, 1, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 1, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw1l3lcTfn/x9to32/7fu45d7o0ZCSiOq9SiqiGW0Iie8JE2dPCpDAIWUqI
ahRFzFBCG4VE0Q1lrSE1YylRWtTv8/316a8e78f5fM5y35/36/nMatFvM5fK
ycjIuMrKyPzvr9ueVe97s9v4pRn86K4RFrA42+I5aqCDz65X9yrYbYUZWust
YiRf+cBb7r/t/MsKUZtlOx9lf+X9K3s3lTdYIbdpb5Vw4Cu/YZm4eJsMgxde
xunrJd9471VWMfksA7Urf26+k/2N9yzMa9ziwWCS+Vhfo4FvfNU75/bqFQxC
44tFoZJOPqTlU3pRAoOUNq8fN7I7+a6q4ifeZxlUznlWqzHQyZcG5non3GbQ
Xbbk3EJJF59ZVVOw7g0Da5v2mMvZXbzbythzer0MAg5vm60w0MVbTF1/epNA
iPh+5VH+ku/8zc+N8uk2QuQvP6KQlf2df6FwwjJ1shDNNczz7v7v/N4+x9Gh
c4TQn3jxkpekm/cvd/A1WCOEW/qkhBPZ3fyK9ep7z8YKsV7tbtDn/m4+v0vy
jEkSInO9ZJyLpIcXXmtTT8wUovbVG9VD2T18lh/X8e2KEHKeq5ve9vfwYe43
7OeVC/HLpe4Ce0kvr7ObXVtRK8Qi4537E7J7+fR5h1jnRiEO7NBZ1tDfyzfX
sTfvfhSi9MNJRxtJHx+W2Ze4qluIz34jdaOy+/iav5e9Ga3AwrI4v7W6v4//
u76rzlCDha+1W4mV5Aevtv3Czp8NWEQdqDkSnv2Dtw/W/RJuweJCT+Dq8v4f
vIXZXLkvIhYvF7dONpD08yG9sX/k/sxC9cF645Dsfj553wbfnLEsnOzl2gv7
+/nRi227OyawWHVq3x01yQD/MqfOdLcTixQlk5NB2QN8akeDY4QLi8q1ZyPy
+gf4NyXCinw3FpEfkznZETIomC7UnuvBQo95o3VOIoP2ET+CF05lkesv6psZ
LQPX75kt1dNYDJ5HGaxTVCjN9WLxovjy4wypDDZoaHX0kzr86/ebMwZkkF77
bd1dUquK+exOsSzuN9hZaZI6fX5c0imJLJbolFY+JfefdPB+tGe0LK7GCMU/
ebJ4XKEd2p4ti862lCbZKSxW9s72T5HKIjzNcfeqySzkbE+6TB6QxY3/BGmh
IN+35K3NB7Ecyno9DsiT7x2TPMLwsEQO8uG/FExwYHHvQZi8c7QczhnvDtQc
xyJYLv9Tc7YcbuyP+muPLYtu+x/1+6VycG6rf31pJIvE0MnlEwbk4J1g9SWO
/P7WabvyGsXyCIq+2qJqxaJYWn18t0QeHnGdFz1MWMxW1o8fGy2PyOhAxkmP
RZtT4LoX2fIQ259WaiP9jl93Zn6clOyXfWG0RIml8ysP2w3pvamyLK4+H2X3
VKyAN7qjXE/2COk8K0C5fV1YaAc5/27XVcTRCihYMe274gchnW8FpN7ZN3Hj
WyH0Lng0bpEqwLbbMf7GCyGddwXU2R02ey4l82Egza8SD8PAuUk2T6qEdP6H
IfCXOY/ybgsREbNwn3n0MHR+vW685oaQ5sEwBJh9H6b9txDprR+WhEmHoXRH
QkzqeSHNh2FwnPd5uW46maeZmyeViYej6tWTXZtShDQvhiOuf0zGwwNkvm4M
0xFED0e12vylhruEND+GY22o86qAGDJv3MGWpdLhuD1hueeBjUKaJ8PxrG/s
lnIy38H7zIvzxYo46P9xXddSIc0XRbzKakkSzxcisevcYeVoRVTcyRobJBHS
vFFEfmb/oaNeQpQsHL9qnlQRG2RGfHjqKqT5o4iNGj2LrSYK0XbvlmuuWAkv
Rn4SbBgzlEdKKI33V3lmLcT/f26UEiY8inCZajmUT0pIfpuafd9ACJ/UF599
pUqI3+THBmsO5ZUSrO9vilNVJP0aFlJxRqwMDx+/Q1X9DM0vZayd83D4n50M
Lqz5lvo1ShkjH0TuSf7E0DxThmFldXFWM4OXT2PDp0iVoTLn53F1rxiab8oY
Z6QbZvmUgaqLxrRjYhUs/2jfsqeaoXmnguHZZ5WM7pI8P5di+W+UCube/Dj6
XglD808FOc0j805cI/mu+1PXJKkKAur56qOXGZqHKpD73FRRcJ5BauRfD/aK
VVFVW3lbNpOh+aiKuWMr/w0/SfL/HZ/xOkoVSsvavbWOMTQvVWFjfrH36QHC
A++qLWOkqugRtH++v4eh+amKL/luFh/jGIgLAn7dIVZDQ13XWscYhuapGpq9
HMoLtzCYY/Xup7ooNfRcdvhvxXqG5qsaCtSmn/cIYxC/e22/SKqGc2HDy2aH
MjRv1TD32qLG5GUMCjp+SDeJ1XFhzOs8jUUMzV91VLicenB1PoPmwN3nK6PU
4W/6R+XBOQzNY3UUhK63TfdjoFehv91Uqg6NgTFRLb8yNJ/VEbaxxHqxN4Mp
o9MD1og1YPxt+XFdL4bmtQZ23n42vofwdP2x0aNLojSQoDrD38CdofmtgYMb
st1DXUm/ZMmASDXI73jCq5NnaJ5rwNS4IqPAiYF0peeLxWJNRC6q/P3yJIbm
uya0psbov3Ug/ZJKL1+J0oQrVCNnTGBo3muiyefHw0/2DOycgncpSjWxpGyj
5d1xDM1/TfQ98tpcb8dgTG3nxRyBFgr9TBoYUg/yQAtFazZPyhjL4K6i03E/
Xgve41T3zSf1IB+0oLEsq9Cb1MGOO3b2h2iB0Yw8s5HUg7wg6504i2ek/h52
b+3ZJC2YZz+VCyP3H+SHFnoWRxry5H0SMzXn+xZrISHusdCdvO8gT7Sw4dn+
xtjxxB8a/Dy7W7XQFx+r+I183yBftFBTleN2ciKDYo3UsWcE2rBL+c1lmyND
eaONSK/Tpw44M5g9ucnci9dGnu9fPQ1gKH+0YfPi0fuAyeQ8bbRW+RpC1u9X
6FSZwlAeaSPJ2udCmyc5XzlkQJO00Tbq8SHl6QzlkzY+pP0n9PNhYNH49xv3
YrI+bfaTxzMZyittGFr9arbdn8FVvd77n1q1UXDo8tJFcxnKL22YHtY3CA9i
MGOaS/5RgQ48U74f+oucz0Ge6UDpZJ2DcDmDd1HxZ8DrIPXB9OBScr4H+aaD
RHsE7SXnfxsZz9YQHUwI/xa9k8zHIO90YBhgr51D5kevRXfzwSQdSE6vDfgR
zVD+6cDx1POjm8n85ZrOXTKpWAcKb/epW5L5HOShDtLacjo+J5J+/Zrm87ZV
ByWNUTEtRxjKRx3EmB1pVjrB4Hlc88S9Al0YynyU+KYzlJe6EOxS7LqZzSCi
0EZkz+siVUnwzTePofzURUKVaoRSPunX53Xar0N0EfOg9vA/NxnKU104Bs7f
3Eh8MkN4rS8+SReJDysmylYxlK+6+N0mssOllvQrYOC9bbEuMl7OLjzTwFDe
6sLU/1Y600T69Yd7bX2rLkpuPS0taWUof3XheT2KjWwn+Ve6p2i7QICIdwfr
Z3UzlMcCOObIfJwiS/hFaDuSF0CmpXmFRHmIzwKs+CPfb6u2EP9rhzREgBq/
gMJCoyFek+sbJqdqM4RvC4JitiUJEDA5ayBqxBC/Bchr3PNedqwQ9w5lhIqK
BXjW0eqXPGmI5wIkTKnzcnMj/nn3X//qVgEso47dk50xxHcBwm49eVjjR3jY
Z+u6SaCHCWtz5uYFDfFeD76l1aGnlhM+jtn4sxWvh02bL8mcCBvivx5qjp0w
yNpMeLnspmFliB7eKLy4ULx9yAf0cMz+0e2mPYSfKfIK4Ul6aHlvHqB1eMgP
9LCw5PZyj5OEp9VTP5sU6yFLzqVj59khXyC1w6WeB3mEr/KJDbdb9WD97kuU
SeGQP5Da+nbsmluEtxOelK8W6CMs4u2wiqohn9CHpcM4TasnhL+rTS/p86Te
33Am6vWQX+hDpnnenZctQlw9vSi1OEQf3y/d/t3py5Bv6CPBsPxtaq8Q3k+y
4lck6WPhicdfeoiPD/qHPjxrPG/4Ez9rViEHsFgfm7p3+V4kPj7oI/qwvWNR
Kk98L4ofF1TYqo+SnudWs0aw1E/00abXnZBK/FsvYuvUxQIDpClO0nztyFJf
McDCes0aI+KvuVmldmq8AcIC81q9fFjqLwZ49gTbIgJYuL9UtLwSYoBjee0X
Dgaz1GcM0GJp+WfmSuLX2t6qQUkG0Hq+YW9OOEv9xgC2NzQO/RnJImJKUufw
YgPkbdzfcjCOpb5jgBg331th+1iobW1ovNhqAJk9mwL5oyz1HwNYHrBs/3GK
+PhFywcBAkNoWa8rO5/FUh8yxMI59/Q8L7FwfLusQJY3RICgzu7xNZb6kSHC
GvJXTy1jUWuYm34uxBBKq611cytZ6kuGiNlyMLLvMfH3GR37ZiUZItFr/PDx
z1nqT2T/b97agf8Qn9/usKWviNQrRQqh/7HUpwxREuw+bXEH6dfV6KWZrYZ4
dm+XxK2XpX5F7q/jlawuz2Hsf+W+3gIjZEm2JBWpcNS3jJA2UHbHX4fDPQs1
xy5nI8TEnS+sM+KofxnhrtLVnolWHIIlM39KCzGCpUqsyU5rjvqYEWwFLVev
jubQnXBMZ2qSEVpC2NVV9hz1M1Jf/vi2wolD4s1XP9qLyPOyU+5nunHU14xQ
UOFSt8KLg/gL25rSagTftvobmjM56m9GSOTmuaUEcCgRhUonC4yRaPPaTmkB
R33OGFp8WdCcpRwC5l0q/uBsDNuCW8l7Qznqd8awLBWVZ6zl0LafHJgQY4T1
P75zciNHfc8YbY7rE7du44iHOB1xTiL7LdL0Ju3gqP8Z403lB7+XCRwsu3fE
vi8yhu9hk4BF+zjqg8bIy7MbWXmIQ/7PlasSW41RU5/VLEjmqB+S/Qrrzrme
5OCzSCvAQWACGRW7U7PSOeqLJmibNb/TI4vD+yP+k5ucTRCzx+Nfi1yO+qMJ
atwDip5f4rDtfuqoPSEmwCWr4q1XOeqT5LrLDleZ6xwMZP4xsksyQdqCyrMh
xRz1SxP46tbOLrjFIddOPOxlkQnyLluXf7jDUd80wZt9olWKVRzcQ35ri2sl
75NmWKtUw1H/NIHl+MDd7bUcXp248nyUwBQ4E2NT9pSjPmpKeLc8aOtzDhGP
eyueOpsibebyarPXHPVTU7TNXeFwromDmqLr5ZgQst9QOdiqmaO+aoo81Zt6
v7dyyCDHRZxkCpm7H8fUfuCov5qi5oTJcc02Do5hDxMeF5HnTe13mdjBUZ8l
dVomI+nkIM0QRGxtJbVTiltQN0f91hQxo/oL5/SRftXPXcAKzFCTlpvhMcBR
3zUj52KBjVhOBHmN09MeOJshbG1FwoCCiPqvGRY25fXdVxQh2fX9uA0h5Lpk
xNP9KiLqw2ZIu348fLq6CGMJPiySzOA78YODvJaI+rEZLKtPn7yiI8L98+Fq
d4vIdTk54VI9EfVlMyQe/MVP11CERW+udYW1kudZza0pNRZRfybrm0oc15mJ
yP8FpMECc8S4t/uILEXUp80hc/ZZ1WtGhMSpUx6WOZsjsef9jjRORP3aHCWb
7WattBZhRNQf10JDzJHnc0zEjxRR3zbHQs/aLstRIpQRnRQkmSNt6/mH2mNE
1L/J+l71Ul07EQLeGybeLCLrY0d3WI8XUR8ntXHu0VkTRWgzWbB1WSt5fl3O
58NOIurn5tAK65/2BSLE+2Yu0xRYwFbOUSnUTUR93QKJF/5NkvMUwSLuv18L
nC2QN/346uteIurvFoCBqvkxHxEKro1xCg6xIHnr5nJ8loj6vAVKTIpj78wW
wecTEdQkC/g+ik22CBRRv7cg8+c688+FIvwfehia4w==
         "]]}, {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKfumI2XfGeZ+sIfwb9nz6ckWz5vI
4iC//IWH3v/H9tOfhXGsbhRwgMi/sle/o/05rFbMwaU75/nvlR/s/098eeHl
T2mo+s/2Dt+qvh93VnD4eShlVULId/vb/sd+GPxWhOr/Zc+Q38hyVFzZYd2v
mNyj//7aM83bUhC5VxlqHoPDh5z+ewX/lR0MZ2pJTA1hcjAW32FzjUUFaj6z
w6KPLgLPHyo78GxdVnl8JatD7rMJV5wWKkPtY3eorZimoFyg7PDsgtLtn/84
HMruRk+coaAMtZ/L4doRpviLd5UcDr6ZZ6MTwuNwzezo40WrlKDu4XUwPnS7
WaBCyWEWh/S8uJX8DvFuG+9cilKCuk/AwZ25glslQsnBetLpeo96QYdLhaab
tFOVoO4Vcth7TC9wb6+Sg8aCzg0PNYUdco9ldmhtUYK6X9hBr99UufmNkoPo
OveHVVdEHL5kNVwK0Ib5R9RhemEw89l8ZQemPaxCIvViDtK7bsprHIf5T9zh
yNZbh+MUVBw+nDzstFZTwsGqciLnj1oVqH8lHJ603ffdfkfF4e71xmK3K5IO
bzUt1b9pqEL9L+Xgl2C19naCqsOpp/ZL7tdJOySs3/CgboUqNDxkHM5su3yt
44Kqw47Pf69UaMo6eLkmv33/RRUaPrIOL98v/bBAUM1hKSPQgVfkHAwWNh3m
1lKDhpe8w+wJ1yRKvNQcRtPbaHqjZ3oDADXNOho=
        "], {{
          RGBColor[0.6, 0.4, 0.2], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0.6, 0.4, 0.2], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJw1lnlcTPv/x6d9r6mmadrrnDnDWEt0o3ReSMqSZCK7LN07N0tZbtxosZW1
LnEtIWQZkp24VNxKErqMaylusg6pKC1K/T7fX5/+6vF+nM/nc+b0/rxfz6fb
nMWh87UFAsFwLYHgf3/9Ny9436aq593MWAuhpSNcjn8I7NfZwJ/dtmFE4HhX
jBMud0lUNPKLNjGxuQmuiF+p1fSPqpH/qXJuSlKOK05Xby1jOxv5k+vL/z1V
4YrKMfZHliu+8RfidE7yBm4wvXRs5W3VN74m9a7HSA83+Dh7hth1fuMbpoze
UDjFDVHJ+bIoRRNf4Gp9oijRDXvrx/y4rmridQuDEkOOuaF0ytNH5p1NfMLR
m1ULSt3QemveydmKZn7adsd1zGc39OzzJfG8qpnfkK0xW2nOIHzn6sm6nc28
saLQeEU/BskdRv0mKVr4SOHSetk4Bld+3qV7QtXC16zUd976K4N35UxFa0cL
b8W2VJzbwEA85My5MYpW/t+koOkZhxj4H/FJ2a9q5c2eHb428S8Gy01LZtZ1
tPLFbkvaXz5icHS5YtAwxXc+o9HIcuQnBo9eVpnsUH3nbZYW/LNFi4V24MLq
Nx3f+W/u5to3xCwGnGvN9VK08YecTo+v7MVijv2G1BRVG7944ZXQL0NZ/LHW
KvJ5Rxuvv7Z4q3YIi5s1B3z7KNr5808tF4kjWNSF9baOV7XztzRbx3jGsHDN
v6J50NHOVzuYKGclsgjp6V/gpvjBLz6haMzcxiL+j/JdS1U/+Kfrx+t37GOR
8336wqKOH3xtiN2RVSdYvJirGWGr6OADvXpcYy6yMLm33F6p6uB3VsyTNeWx
GOql/eVaRwffEjgxp72ExYKD226bKjr5iIc9dH0fsthr6HBgpqqT/yj4VHT1
OYvSmOPLznZ08vJVf66Oq2ax6vMeTquXAKkN3oc2aFjYMFXCkwoBCg1MdlTV
sTg9SdYemiBAi+fuQ9u+sei6jwL4X3lqsOs7i8r88w+z1AII4id8butgsbSx
5ca4TgGcTTwji7SlMJHzqia5FpIiVixt1pPiyIz16QcVWpj6WU/nT0MpfLbf
TQhMIM8XltSdMJbiYbFl1BeVFkorH2kNMJXi17bJk/aqtTB/2ppaLzMptN0P
DBvRqQV3yY7w66TeO+9Nnxq5NhyGBJUXk9pjTy/JToU2lt7Z9Ggqqe/ci9bx
S9BG8J7Oe6vIeRHaV2rfqbRx393dzsNEilavH89S1drYcTGrPc5IirSoEUXe
ndoQlOvkRBhI0TNz49lXch0cPOAx4Z2uFPnqB/s2KXSwYueiFjPyfZONxMme
CTpYsOC3rEry/fVDpy+pVOlgk8FB/0ltLJKXHJ6xXq2D6NnNl+ObWTq/Oti/
OLJkSgOLyxX9Bj6R6+K+TenAT7UsnWddhOuJj3t9ZPHO/y9jeYIu1pxacpV/
y9L51sVDu+nfjKpIv3JGvfpdrYvkuoJHu0l/u+ZdF6XD3W7UqUm/bNVXyuR6
YDadNrJ6wNL510Pp+vlaOndYLEucvc05QQ/fe/5UWXSLpXmgh8lrnW7NuM7i
iKZmXrRaDwEn+bv3LrE0H/TgddhCYHeGxaPQlT635PqwCFROGU7ua1de6CN+
yLmCsYfIfF3XsxIl6EPxd4OFz16W5oc+XhToWAl3kHnjtn+Yr9aHd+qeNfc3
szRP9HH1S4z5ynUsIrY551+RG2Bw+4KJVqtZmi8GWNyeXZWxnEVa88mdRgkG
mDT3kpfDIpbmjQFiczbeTo1kUTD7pwXT1AYYM6GsqX0mS/PHALsOvLCbP5n0
687fw0/LDXHx3PfY0vEszSNDmIRPH90/kMX/f268IUZ9D7u+EyzNJ0Py/1v2
qdObxfiMyroQtSHaw/a/X+zB0rwyxBGnvhfey0m/9JTFh+VGGFEuHqFkWJpf
RojZrJ3QZE/mfdG3jMZ4I/ROXDDsD2uW5hlZX/n3ZB9TMv9PkpYGqI1w8MLG
NU26LM03IxzXLF5e+IOByTDz0bvlxthqv+LJsabuvDPG+XVWIw7WMfA5udf1
Y7wxDL/6Bpz50J1/xgg/dGjO01cMoqx7NPuojZHR/7KZYwVD89AYy5Ken41T
M8hYdeHeVrkJpmfHqlruMTQfTeBc5RyUfptB6Vs+6794E9iHnHg8/iZD89IE
1x1DN/YhedwaXPa7h9oEx3z/2977EkPz0wR+kZdtgs8wkOeGT1grN0V1i6DX
ThVD89QUind3KrWyGExxe9vjcbwphBmO7jsPMDRfTZFRwzqE7CH82BTTIVOb
or4lcJNnOkPz1hQFdqGzkMogt+GHeoXcDB9LkmJiNzE0f81wedOlrc/WE75M
33SqNN4MY5+s++3nJIbmsRladGa/cVvNwKZYvMZRbYbEPmfWG61kaD6bYZvj
lw7n5QwC+h8JXyQ3h/ng5x/nxDA0r82xSrn0+eOFhEe7+/cviDeHRGtw2ArC
s678NkfmicHPRv9M+qVFBkRtjtGjBlWMm8fQPDfH8Jq/ipMiGKh/DaycK7eA
OHdsx7uZDM13C9QULatYPZ30S60+fyneAt9FtTkBUxma9xYojskrGBbOYODQ
iI0GagvsmjUpZPEkhua/BQq1zqY/UDDweNR0JlskRLvuoutzJjKUB0KUpXz/
3DOUQYnB0H1hvBC5hsdGMRMYygch3ows/i84hEGE79oNHUohJO6PC3PGM5QX
QkQ/SP0xjNQt0XdijqcLMbuvzUZDUnfxQ4hwP71Z2qROO2oxIyRfiA+lBxf3
J3UXT4Rwn/L6SCqpez4PC2zVCOEvzn7BkPd18UWIFfkPmz+QOt88w/OwyBJZ
m8cUvyK/r4s3lrguGik2I98zeUS18xjeEuUYlfMr+d4u/liioHdo8Pcwcp9i
exo3Ki0xT/jjzF+TGcojS9R77NyQM4Xcr2wyoOmWkBb5JjycxlA+WUL43GhY
D9IPl1cXq0bmk/X+3MLs2QzllSVqkjUHIuYyuGzTdrdWYwnH61oLAiIZyi9L
eMelzJuqZDBu9LArf4qssLtEZr1/AUN5ZoWa7wN+mEUzeBuffBi8FSRHHxzO
XspQvlnBN9E4YUUsg9VkPDVKK8xWtBnExDGUd1boU12dszOB9OuD9crt6VZw
LwuqeruWofyzwsBEF92IFNIvx6nzfPKtcNH12Wr9rQzloRUEi9KyH/9B+jUh
c/wbjRUKzjCf7u1iKB/JeQfGp9XuY1Cx/t2QrSJrnB3ztNaL+FgXL61RZnYg
7NgxBsuu9ZF58daoirxp4ZvNUH5aI7CuYF7zOdKvuiWW/ymtkeu3e/eTKwzl
Kdn/+OWnihsMstir7cnp1tA1eL9Pp5ChfLXGgqrK6nGlpF/hne/d862hFr1t
vlrOUN5aw/etj8WoJ6RfW0Y+eqaxhqGxYmrjC4by1xopGd8Mbr4h+Xdzc94a
kQgQzPDPJn7YxWMRXMumDL70lfSL0LY3T+qLC80rWhnKZxF+WfLpgyPxx/+1
Q60UIe2sTc1Kw25eixD9ZejgLxaEb7NmJq5OF6Fq5eu6JNtufouQOORh394u
LO7syIqS5YtQkjvMokbWzXMRCloacv7uR/yz5OOkBxoRBJEK2Tmvbr6LILmx
a+sFP8LDdvfhK0Q2qG983HYnoJv3Nkjp6ZncEEz46BHb1423QWJCo3//yd38
t0FPSVbQqlmEl5E3JKVKG+yu76d69nO3D9ig6oFObEA04edeHd2l6TbI7T+g
+OaKbj8g67mNqtFJhKcPguoc8m0gGXvZs2pjty/YIC17XmzSdsJXnbTnhRob
fDg+Lbnvvm5/IPur9v/2+gjhrfe/RQtFYgSyKeGHs7t9QowPIfVQEt9wXuh4
TsyLkTnK3/+nvG6/EKPl7olYk9vEnw7NychXilGwRPLlzYNu3yD7N665fesp
i+B/TyT/ki6Gu/ZHq6xX3f4hRnj4uprk//mVMbmA+eT98U8XLWzo9hExJEUv
Lk1sJ/3iB828phEjpMj+v8HEX7v8RIzEoEIjF3MpbJbFBc0V2eKsV+UkbVsp
9RVbuP4Woql2keL0iZsDTXlbRL+0e5ffU0r9xRZCp2nLdntIMfKFgeslpS3K
DybciBoipT5ji8zVUz97j5Ci0jLYZGa6LZ7OHjmgc4yU+g1532L+xg2FFMsC
0pv0821RP8j01tIZUuo7tpi9LTTWNVIK07jnr85obGG45S/x34uk1H9sUTDX
8sXUWOLjZ1zvhYskKFHMNH6fIKU+JMEvO0yqI1Ok8H0TmavFS9DTQ3DqWZqU
+pEEmfoFZ/z2SPFIcvrISSWpMzb57Twkpb4kgbf4d1Wlivj7uIZtE9MlqJcc
DhCdl1J/kkBypV+0zzXi82sG/96eR/aHr1034ZaU+pQEK7KmvAsrJX5/OWH+
UY0Egb9WtY96KKV+JUH05ueePZ5L4fmpKCRYZAfvNzfavr6SUt+yg6HXwzsn
NcT/XUx9m/3s8ItFiCT4i5T6lx3OXk6IrGwh/VKE9shU2iHa6ql3mICjPkbO
2+Fkl2vAoTVlt1VQuh0KHJN26Vpw1M/skFiXN3KImEPajZc/vuTZQbB96M1w
J476mh0+XO2jmiXlIP8q1ezV2CFlUNaR4N4c9Tc7hDy+NZ0bwKFAFqUeIbJH
veLehtfeHPU5e5T4j3uewnMIn3Yuv8bPHoEN/cU2ARz1O3sUTHrbmTyWQ30q
uTBKe4R8i5/7KpSjvmcP1/L71m5TOGwoHLrLL52cP3rDx4BZHPU/e8A2rCR0
PgfX1rVJ7/PsIXA03OkfxVEfJPXsE7xjDIcrfUsXpGnscfbrnrxnv3HUD+1R
/viaxepVHMbPEYYPFjkg+l2St/4ajvqiA1xvOwUsT+bwftekEdV+pC7ZMa50
C0f90QGJ/7yM0tvOYfXdjH6blQ4IGWteLPuToz7pgAKT+Rv7ZXCwFby2G5ju
gHKvFZ8cD3HUL8l6j+BeX49yOD1Qrvcij6xfv3pLzkmO+qYDhPfHRISe4TBS
ubh+vcYBgv1lgpcXOOqfDsAvgrIJuRxe7r9U0U/kCNeYhj451znqo47IPF25
q6GAw7KHbcVP/Eh93ncDU8RRPyV1Rnuizx0OpgbDzycqHYHWLWL+Hkd91ZHw
QLeq7z8cssh1kac7oqqWTzR8zFF/Je8z6zzy4CkH3+j7KQ/zHCGM09NeV8lR
n3VE9AnvabIqDuos0bI4jSPca/N+v/Kao35L3h/r7OX9nvTr2dRZUpETBH2m
L1R95KjvOmH2bnsT01oOOuaHRt/zI8+f5upGfOGo/zrBPT5mqqqRw57h7wf9
piTrE1bavmvmqA87AQ4uoZI2Dp4EHy7pTnAt+tB7WAdH/dgJBWYX/4nQkuHu
qaWmJXlOOLtFHRenK6O+7IS0OwMWpRrIMKfqanO0xgkhXFTLAWMZ9WdyXmHN
8lNmMuKtpMEiZ2QulwRfFsqoTzsj8eCsxgJrGdKCAu7f8nNGFTf3Q5lYRv3a
GdFhVpcr7GToFb/lapTSGfV373yrdZRR3ybnzVky1tBVhltEJ0XpzggRZ0bJ
WRn1b2e4fj1rqZDJEP5eknYjzxmC5k9Gm+Qy6uPkfQaZfe71kaHeYVZcpIac
92D4LBd3GfVzsv90avoaTxmSQ45GWohcUL73WFmLl4z6uguq7HrbrBsig8v6
TxNy/VyQaTd3o8xPRv2dPH8VFlo9TIbcqx5DI5Rkf/vHY1dHyqjPk9rZqCwn
SIbxtURQ013ganlJVDhORv3eBYJ97tVtE2T4P8HFkcw=
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.19968266, 0.19968266}}],
   TagBox[
    GridBox[{{
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"out\\\"], \
\\\"2\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.4, 0.2]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.4, 0.2]], FontSize -> 8.96, Plain, 
                    StripOnInput -> False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], "]"}], 
               "}"}], ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"out\\\"], \
\\\"1\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 1, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 1, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "1", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"in\\\"], \
\\\"2\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
        "\"\\!\\(\\*AdjustmentBox[SuperscriptBox[SubscriptBox[AdjustmentBox[\\\
\"C\\\",\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., 0.}, \
{0.16666666666666666`, -0.16666666666666666`}}], \\\"in\\\"], \
\\\"1\\\"],\\nBoxBaselineShift->-0.16666666666666666`,\\nBoxMargins->{{0., \
0.}, {0.16666666666666666`, -0.16666666666666666`}}]\\)\""}, "PointLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.5754331225242257`*^9, 3.575433352015106*^9, 3.575433763780553*^9, 
   3.575433837246411*^9, 3.575433927289193*^9, 3.5754340451429205`*^9, 
   3.5754342888235273`*^9, 3.575434357634262*^9, 3.5754344117508106`*^9, {
   3.5754344762696905`*^9, 3.5754344957391577`*^9}, {3.5754345703691096`*^9, 
   3.575434596225304*^9}, 3.5754346713527017`*^9, 3.575434818612812*^9, 
   3.5754349761591487`*^9, 3.5754351158684855`*^9, 3.5754352075547385`*^9, 
   3.575435880277248*^9, 3.575436011159665*^9, 3.575436054393447*^9, {
   3.5754361519369583`*^9, 3.5754361592455125`*^9}, {3.575436462739781*^9, 
   3.5754364679034467`*^9}, {3.5754365856890807`*^9, 3.575436627799859*^9}, 
   3.5754367747146616`*^9, 3.575436841834874*^9, 3.575436922214985*^9, {
   3.5754369631116753`*^9, 3.575436969131075*^9}, {3.575437059089779*^9, 
   3.575437064275428*^9}, {3.5754371880694857`*^9, 3.575437192204195*^9}, {
   3.575437233658386*^9, 3.5754372686818075`*^9}, 3.575437964215782*^9, {
   3.575438021019738*^9, 3.575438025136434*^9}, 3.5754380702649174`*^9, 
   3.575438114277401*^9, {3.5754381504428487`*^9, 3.575438177689292*^9}, 
   3.5777157926889553`*^9, 3.5791553215662365`*^9, 3.579155421669039*^9, 
   3.579157164613662*^9, 3.5791572004167833`*^9, 3.580884852560281*^9, 
   3.5808849824427996`*^9, 3.5808850435606294`*^9, 3.580885087103696*^9, 
   3.580885215870214*^9, 3.580885353006238*^9, 3.580885388577149*^9, 
   3.5808854550607953`*^9, 3.580885486327846*^9, 3.5808859084605446`*^9, 
   3.5808859415612392`*^9, 3.5808860079648137`*^9, 3.580886078928477*^9, 
   3.580886230819738*^9, 3.5808863033107705`*^9, 3.5808863474193425`*^9, 
   3.5808863973291163`*^9, 3.5808864513665934`*^9, 3.5808864936775513`*^9, 
   3.5808865974216223`*^9, {3.5808889517056866`*^9, 3.580888995118633*^9}, {
   3.5808891886412473`*^9, 3.5808892272769055`*^9}, 3.5808893847561846`*^9, 
   3.5808894245138493`*^9, 3.5808895395090137`*^9, 3.5808896834471455`*^9, 
   3.58088997785126*^9, {3.580890247244937*^9, 3.5808902716218066`*^9}, 
   3.580890347033459*^9, 3.580890378706873*^9, 3.5808904304582977`*^9, 
   3.5808905039572377`*^9, 3.580890618569055*^9, 3.5808907581943183`*^9, {
   3.5808908114170647`*^9, 3.5808908327251806`*^9}, 3.580891063411132*^9, 
   3.5808910940966578`*^9, 3.580891165237483*^9, 3.5808912825357122`*^9, {
   3.5808913689792757`*^9, 3.580891396970372*^9}, 3.5808914433099427`*^9, 
   3.5808915044007483`*^9, 3.5808915389937825`*^9, 3.580891645526355*^9, 
   3.5808926419913015`*^9}]
},
WindowSize->{797, 651},
WindowMargins->{{Automatic, 33}, {Automatic, -10}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 3632, 83, 272, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[4192, 105, 1851, 26, 31, "Output"],
Cell[6046, 133, 64555, 1718, 5072, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[70604, 1853, 63019, 1281, 399, "Output"],
Cell[133626, 3136, 2071, 31, 21, "Message"],
Cell[135700, 3169, 2071, 31, 21, "Message"],
Cell[137774, 3202, 63366, 1286, 397, "Output"]
}
]
*)

(* End of internal cache information *)
